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T I TLE TSEM3 

ENABL LC 

ENABL AliA 

DSABL GBL 



ISX-Plus EMT Overlay 



Copyright (C) 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985. 

S?<H Computer Systems, Inc. 
Nashville, Tennessee 

This software is furnished under a license for use only 
on a single computer system and may be copied only with 
the inclusion of the above copyright notice. This 
software, or any other copies thereof, may not be provided 
or otherwise made available to any other person except 
for use on such system and to one who agrees to these 
license terms. Title to and ownership of the software 
shall at all times remain with S&H Computer Systems, Inc. 



000000 
000000 



020551 
177776 



. CSECT 
. RAD50 



pCj 



TSEM3 
/EM3/ 
1 77776 



; Overlay id 

i Processor Status Word 



Macro calls 

. MCALL . CLOSE, . DSTATUS, . ENTER, . LOOKUP, . PURGE, . READW 

Global definitions 

. GLOBL CSISPC, CSIGEN, MONEMT, MONABT, GETCXT, FRECXT, GTUKBL 

. GLOBL GETCHA, SETPRI , CPYEMT, KMCPCX, REDCXT 

Global references 

.GLOBL PRIVFO, *VNOTT, SPPRED, SMONHD 

. GLOBL NLCHN, C. CSW, CS$OPN, CS*NMX, LDDEVX, KEYRCB, RC**SZ 

. GLOBL RC*BLK, RC*BAS, LCXPAR, JPWDEV, JPWTYP, JPWFLG, CFPSAV 

. GLOBL NUCHN, STOP, ASNTBL, MAXASN, RESDEV, OKFILE, MAXACC 

. GLOBL OF**SZ, LDNAME, MAXLD, LDPDEV, LDSIZE, LDBASE, LDFLAG, CPYMNT 

. GLOBL P2*VIR, PRIVC2, PO«SYS, *DILUP, LPARNT, P2*CXT, AT**SZ 

. GLOBL PRIVCO, PRIVSO, PVWPW, PO*SPV, PRIVAO, VPRIDF, MXJPRI, LBSPRI 

. GLOBL SPCFLG, EMTBLK, URO, VALADW, CSIBUF, GETUCH, CFPNT, USRUCA 

. GLOBL OVRHC, ASKLIN, VALADB, PUTUCH, EMTXIT, CSIEQL, SWTCNT, CSIDEV 

. GLOBL CSIARE, ERRLOC, CSIMSG, SETERR, TAB, CSIFIL, CSIUSP, *NOVLN 

. GLOBL LMONHD, MONFCJH, JM*LNK, JM«JOB, JM*RTN, LSW9, LSW2, LSW2S 

. GLOBL BADEMT, LSTSL, SETERR, UMODE, EMTPS, *INKMN, LSW4 

. GLOBL GETQ, C(3*R0, CQ*R1, CQ*JOB, JM*RTN, CQ*RTN, CQ*CP, CP*STD 

. GLOBL LPRI, CQ«PRI, S*IOFN, CQ*RNS, LITIME, S*HICP, QCOMPL 

. GLOBL USWPCH, CXTBUF, CXBOWN, CXBJOB, CXBBAS, CXBSIZ 

. GLOBL CORUSR, S*QCXB, QNSPNX, CHKABT, UREGO, SINCOR, LSW, CXBMOV 

. GLOBL CXTBAS, LSWPBK, USREMT, PR7, INTPRI, CXTRMN 

. GLOBL R*CHN, R$XCHN, CHNSIZ, MVSIZ 

Macros to enable and disable interrupts. 

.MACRO DISABL i DISABLE INTERRUPTS 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
Sc! 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 000002 015270 



Bli 



#340, @#P3 



. ENDM DISABL 

. MACRO ENAEL 

BIC INTPRI,@#PS 

. ENDM ENABL 



; ENABLE INTERRUPTS 



Macro to print an error mes&age when a system crash occurs. 

Arguments: 
MSG " Name of error message to print. 
ARC = (Optional) argument value to display with error message. 

. GLOBL DIEMSG. DIEARG, SYSHLT 

. MACRO DIE MSG, ARG 

MOV MSG, @#DIEMSG 

. IF NB,ARG 

MOV ARG, e#DIEARG 

. ENDC 

CALL ©#SYSHLT 

. ENDM DIE 

Macro definition for calling global routines residing in mapped 
system regions. 

. MACRO OCALL ENTADD 
.IF B, ENTADD 

ERROR i OCALL SPECIFIED WITH NO ENTRY ADDRESS 
. MEXIT 
. ENDC 
CALL OVRHC ; CALL THE OVERLAY HANDLER 

WORD ENTADD ; SPECIFY THE ENTRY POINT 

. ENDM 

Data areas 

R50DK: . RAD50 /DK / 



TSEM3 


TSX-Plus EMT Dv 


'erlay MACRO V 


SETPRI - 
1 


-- Set p 


riority 


or privilege for 


d 

3 
4 

5 


000004 


105737 


0000000 


6 
7 

e 

9 
10 


000010 


001027 




000012 


013702 


0000020 


11 


000016 


003002 




12 


000020 


113702 


0000000 


13 


000024 


120237 


0000000 


14 


000030 


101402 




15 


000032 


113702 


OOOOOOG 


16 


000036 


110261 


OOOOOOG 


17 


000042 


110261 


OOOOOOG 


IS 


000046 


032761 


OOOOOOG OOOOOOG 


19 


000054 


001403 




20 


000056 






21 


000064 


000137 


OOOOOOG 



job 
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. SBTTL SETPRI — Set priority or privilege for job 
Set execution priority or privilege flags for job. 



SETPRI: TSTB 
DNE 



EMTBLK 
SETPRV 



Set job execution priority 



1*: 



?*: 



9$: 



MOV 


EMTBLK+2, R2 


BGT 


1* 


MOVB 


VPRIDF, R2 


CMPB 


R2, MXJPRI 


BLOS 


2* 


MOVB 


MXJPRI,R2 


MOVB 


R2»LBSPRI(R1) 


MOVB 


R2, LPRI(Rl) 


BIT 


#*VI\IOTT, LSW<R1) 


BEG 


9* 


OCALL 


SPPRED 


JMP 


EMTXIT 



Set priority or privilege? 
Set privilege 



Get specified execution priority 

Br if value specified 

If not specified* set default 

Compare with max authorized priority 

Br if ok 

Get max authorized priority 

Set base priority for job 

Set current priority for job 

Is this a subprocess not connected to term? 

Br if not 

Reduce priority of disconnected subprocesses 

Finished 
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1 
2 
3 
4 
5 
6 
7 
S 
9 

io 

11 000070 

12 

13 

14 

15 000070 

16 000074 

17 000076 
18 

19 
20 

21 000102 

22 000110 

23 000112 

24 000120 

25 000122 

26 000130 

27 000132 
28 

29 
30 

31 000136 

32 000142 

33 000146 

34 000150 

35 000154 
36 

37 
38 

39 000156 

40 000162 

41 000166 

42 000170 

43 000174 

44 000176 

45 000200 

46 000204 

47 000210 

48 000212 

49 000214 

50 000216 
51 

52 
53 

54 000220 

55 000222 

56 000226 

57 000230 



013702 
010200 
004737 



123727 
001012 
032737 
001006 
123727 
001002 
105337 



1 1 3700 
020027 
001424 
020027 
001453 



012703 
1 1 3700 
001406 
012703 
005300 
001402 
012703 
012700 
012346 
106622 
077003 
000504 



005005 
1 1 3704 
106522 
012600 



BYTE 


i> 150 


BYTE 


fun, perm 


WORD 


buffer 


WORD 






0000040 
0000000 

0000030 
0000000 
000002G 
0000030 



0000020 
000001 

000002 



000002 

0000000 

000002 



Set privilege flags for job. 

The form of the EMT argument block is as follows: 

i Fun: 0=get, l=cleari 2=set Perm: 0=temp* l=perm 
; Buffer address 
; (reserved > 

SETPRV: 

Validate the user's buffer address 

j Get user's buffer address 

; Validate the address 

Only allow changes to authorization privilege flags if SETPRV is enabled. 

Does he want to access auth privileges? 

Br if not 

Does he have SETPRV privilege? 

Br if yes 

Does he want to set bits? 

Br if not (allow access or clear-bits) 

Can't change auth priv without SETPRV 

See what the subfunction is 



MOV 
MOV 
CALL 



EMTBLK+4, R2 
R2i RO 
VALADW 



CMPB 


EMTBLK+3, #2 


BNE 


10* 


BIT 


#PO*SPV>PRIVCO 


BNE 


10* 


CMPB 


EMTBLK+2, #2 


BNE 


10* 


DECB 


EMTBLK+3 



10*: 



OVB 


EMTBLK+2> RO 


MP 


RO, #1 


EQ 


2* 


MP 


RO, #2 


EQ 


5* 



i Qet subfunction code 
i Clear bits? 
j Br if yes 
i Set bits? 
i Br if yes 



Return current privilege flags to user 



0000000 
0000030 

0000000 



0000000 
0000000 



11*: 
1*: 



MOV 


#PRIVCO, R3 


MOVB 


EMTBLK+3, RO 


BEQ 


11* 


MOV 


#PRIVSO, R3 


DEC 


RO 


BE(3 


11* 


MOV 


#PRIVAO, R3 


MOV 


#PVNPW, RO 


MOV 


(R3)+, -(SP) 


MTPD 


(R2) + 


SOB 


RO, 1* 


BR 


9* 



Point to vector with current flags 

Get type of priv flags wanted 

Br if wants current priv flags 

Point to table of perm flags 

Want perm flags? 

Br if yes 

Must want authorized privileges 

Get # words to move 

Get word with current flags 

Move to user's buffer 

Move all words with privilege flags 



User wants to clear some privilege flags 



000003G 



2*: 
3*: 



CLR 


R5 


MOVB 


EMTBLK+3, R4 


MFPD 


(R2) + 


MOV 


(SP>+, RO 



; Init index into privilege words 
; Get type of privilege change wanted 
; Get flags from user 
; Pop flags 



1 
I 
I 

4 

( 
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58 


000232 


040065 


OOOOOOG 




59 


000236 


005704 






60 


000240 


001411 






61 


000242 


040065 


OOOOOOG 




62 


000246 


040065 


0000000 




63 


000252 


020427 


000002 




64 


000256 


001002 






65 


000260 


040065 


OOOOOOG 




66 


000264 


062705 


000002 




67 


000270 


020527 


OOOOOOC 




6S 


000274 


103754 






69 


000276 


004737 


000434 ' 




70 


000302 


000452 






71 










72 










73 










74 


000304 


005001 






75 


000306 


005005 






76 


000310 


106522 






77 


000312 


012604 






78 


000314 


032737 


OOOOOOG 


000000 


79 


000322 


001006 






80 


000324 


010400 






81 


000326 


046500 


OOOOOOG 




82 


000332 


001402 






83 


000334 


040004 






84 


000336 


005201 






85 


000340 


050465 


OOOOOOG 




86 


000344 


105737 


000003G 




87 


000350 


001412 






88 


000352 


050465 


OOOOOOG 




89 


000356 


050465 


OOOOOOG 




90 


000362 


123727 


000003G 


000002 


91 


000370 


001002 






92 


000372 


050465 


OOOOOOG 




93 


000376 


062705 


000002 




94 


000402 


020527 


OOOOOOC 




95 


000406 


103740 






96 


000410 


004737 


000434 ' 




97 


000414 


005701 






98 


000416 


001404 






99 


000420 


012700 


000001 




100 


000424 


000137 


OOOOOOG 




101 










102 










103 










104 


000430 


000137 


OOOOOOG 




105 










106 










107 










108 










109 










110 


000434 


010146 






111 


000436 


113701 


OOOOOOG 




112 










113 










114 











4*: 



Wednesday 


18-Jan-S9 10: 


BIC 


RO, PRIVC0(R5) 


TST 


R4 


BEQ 


4* 


BIC 


RO, PRIVS0<R5) 


BIC 


RO, PRIVF0<R5) 


CMP 


R4, #2 


BNE 


4* 


BIC 


RO, PRIVA0<R5) 


ADD 


#2, R5 


CMP 


R5, #PVNPW#2 


BLO 


3* 


CALL 


FIXPRV 


BR 


9* 



Page 3-1 



Clear current flags 

Change perm flags?" 

Br if not 

Change permanent flags too 

Change command file privileges 

Change auth flags? 

Br if not 

Change authorization flags too 

Get index to next priv word 

Done all words? 

Loop if not 

Update LSW tables 



User wants to set some privilege flags 



5*: 


CLR 


Rl 


Say 




CLR 


R5 


Ini 


8*: 


MFPD 


(R2) + 


Get 




MOV 


<SP)+, R4 


Get 




BIT 


#PO*SPV, PRIVCO , 


Is 




BNE 


6* 


Br 




MOV 


R4,R0 


Get 




BIC 


PRIVA0<R5),R0 


Is 




BEO 


6* 


Br 




BIC 


RO, R4 


Cle 




INC 


Rl 


Rem 


6*: 


BIS 


R4, PRIVC0(R5) 


Set 




TSTB 


EMTBLK+3 


Is 




BEQ 


7* 


Br 




BIS 


R4, PRIVS0(R5) 


Mak 




BIS 


R4, PRIVF0<R5) 


Cha 




CMPB 


EMTBLK+3, #2 


Cha 




BNE 


7* 


Br 




BIS 


R4,PRIVA0<R5) 


Cha 


7%: 


ADD 


#2, R5 


Get 




CMP 


R5, #PVNPW*2 


Mor 




BLO 


8* 


-Br 




CALL 


FIXPRV 


Upd 




TST 


Rl 


, Do 




BEQ 


9* 


, Br 




MOV 


#1, RO 


-Ret 




JMP 


SETERR 




* 
> 


Finished 






9*: 


JMP 


EMTXIT 


; Fin 



no error detected yet 
,t index into priv words 
flags to be set 
flags 
user allowed to set any flag? 
if yes 

flags to set 
user allowed to set all of these flags? 
if yes 

\a.T disallowed flags 
lember to report error 

current flags 
change to be permanent?-" 
i f not 

;e permanent change 
mge command file privileges 
mge auth flags too? 
if not 
mge authorization privileges 

index to next priv word 
'e priv words to change? 
if yes 

late LSW tables 
we need to report an error? 
if not 
;urn error code 1 



FIXPRV is called after changing any privilege flags to set any 
privilege flags in LSW tables. 



FIXPRV: MOV 
MOVB 



Rl, -<SP) 
C0RUSR,R1 



j Get current job index number 
See if virtual line access is allowed? 
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115 000442 042761 OOOOOOG 0000000 

116 000450 042761 OOOOOOG OOOOOOG 

117 000456 032737 OOOOOOG OOOOOOG 
lis 000464 001006 

119 000466 052761 OOOOOOG OOOOOOG 

120 000474 052761 OOOOOOG OOOOOOG 

121 ; 

122 i 

123 ■> 

124 000502 012601 1*: 

125 000504 000207 



BIG 
BIC 
BIT 
BNE 
BIS 
BIS 

Finished 



MOV 
RETURN 



#*NOVLN» LSW2<R1 ); Assume virtual line access is allowed 

#«NOVLN, LSW2S<R1) 

#P2«VIR, PRIVC2 ; Is virtual line access allowed? 

1* i Br if yes 

#*N0VLN,LSW2<R1)» Disable virtual line access 

#*NOVLN. LSW2S<R1) 



<SP)+, Rl 



I 
I 



TSEM3 
KMCPCX 
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1 

2 

3 

4 

5 

h 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 



000506 



000506 
000512 
000514 



004737 002324 ' 

103002 

004737 OOOOOOG 



000520 013702 000004G 

000524 013703 0000060 

000530 013705 0000 lOG 

000534 004737 001342' 



000540 004737 002410' 
000544 000137 OOOOOOG 



. SBTTL KMCPCX 



Kmon EMT to copy context block data 



Tskmon EMT to copy data from the context block of another job into the 

context block of our job. 



Form of EMT argument block: 



. BYTE 


0> 126 


. WORD 


14 


. WORD 


job_number 


. WORD 


address of item 


. WORD 


num_byte5__to_..CDpy 



KMCPCX: 

Gain exclusive access to context block buffer 



CALL 


GETCXT 


BCC 


1* 


CALL 


STOP 



Copy the requested data 



1*: 



MOV 


EMTBLK+4, R2 


MOV 


EMTBLK+6, R3 


MOV 


EMTBLK+8. , R5 


CALL 


CPYCXT 


-inished 




CALL 


FRECXT 


JMP 


EMTXIT 



;Gain access to context buffer 
} Br if got it 
; Job uias aborted 



i Get # of job we are copying from 
; Get address of item we are copying 
; Get # bytes to copy 
i Copy the data 



j Free the context buffer 



TSEM3 
CPYEMT - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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. SBTTL CPYEMT 



Copy file/privilege info from another job 



This EMT is used to copy the file and privilege information from another 
job. The form of the EMT argument block is: 



. BYTE 
. WORD 
. WORD 



subfun, 160 

jobnum 





000550 



000550 013702 000002G 

000554 006302 

000556 001407 

000560 020227 OOOOOOG 

000564 101004 

000566 032762 

000574 001004 

000576 012700 

000602 000137 



Where subfun has the following meanings; 

==> Copy file assess information only. 

1 ==> Copy file info and privilege info. 
3 ==> Copy info from context block into program buffer. 

Jobnum is the number of the job that we are copying from. 

CPYEMT: 

See if the specified job is logged on 



OOOOOOG OOOOOOG 

000001 
OOOOOOG 



10*: 



MOV 
ASL 
BEO 
CMP 
BHI 
BIT 
BNE 
MOV 
JMP 



EMTBLK+2, R2 

R2 

10* 

R2, #LSTSL 

10* 



j Get # of job jue are copying from 
i Convert to job index number 
i Br if job number O 
i Valid job number?" 
; Br if not 



#*DILUP,LSW<R2) ; Is job logged on' 



1* 

#1, RO 
SETERR 



j Br if yes 

; Return error code 1 



See if job is privileged to do this 



000606 026102 

000612 001407 

000614 032737 

000622 001003 

000624 005000 

000626 000137 



OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



1*: 



3*: 



CMP LPARNT<R1), R2 

BEQ 4* 

BIT #P2*CXT, PRIVC2 

BNE 4* 

CLR RO 

JMP SETERR 



i Are we copying info from our parent job? 

; Br if yes — That is always legal 

i Are we authorized to copy context info? 

i Br if yes 

; Return error code 



See if we are copying into our context block or into program buffer 



000632 123727 OOOOOOG 000003 4*: CMPB EMTBLt^, #3 
000640 001002 BNE 2* 

000642 000137 000676' JMP CPYCXD 



000646 004737 001022 



000652 105737 OOOOOOG 

000656 001405 

000660 026102 OOOOOOG 

000664 001357 

000666 004737 001222' 



Copy the file access info 

CALL CPYFIL 
Copy the privilege info 



TSTB 


EMTBLK 


BEQ 


9* 


CMP 


LPARNT(R1),R2 


BNE 


3* 


CALL 


CPYPRV 


Finished 





; Copy data into program buffer? 

i Br if not 

;Copy context data into program buffer 



; Copy file access info for job 



iDoes he want to copy privileges? 

; Br if not 

i Copying privileges from parent? 

) Br if not 

iCopy privilege info 



I 

€ 
I 

i 
I 
i 
i 
i 

€ 
i 

i 

i 

€ 

C 

< 

i 

i 

i 

t 

I 

( 
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58 ; 

59 000672 000137 OOOOOOG 9*: JMP EMTXIT ; Finished with EMT 



TSEM3 TSX-Plus EMT Overlay MACRO 
CPYCXD — EMT to get information from 



c 

€ 



2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 


000676 






17 








18 








19 








20 


000676 


004737 


002324 ' 


21 


000702 


103002 




22 


000704 


004737 


OOOOOOG 


23 








24 








25 








26 


000710 


013704 


000004G 


27 


000714 


006304 




28 


000716 


020427 


000004 


29 


000722 


101404 




30 


000724 


012700 


000002 


31 


000730 


000137 


OOOOOOG 


32 


000734 


016403 


001006' 


33 


000740 


016404 


001014' 


34 


000744 


010400 




35 


000746 


004737 


002726 ' 


36 








37 








38 








39 


000752 


013700 


000006G 


40 


000756 


004737 


OOOOOOG 


41 


000762 


013705 


OOOOOOG 


42 


000766 


006204 




43 


000770 


012546 




44 


000772 


106620 




45 


000774 


077403 




46 








47 








48 








49 


000776 


004737 


002410' 


50 


001002 


000137 


OOOOOOG 


51 








52 








53 








54 


001006 


OOOOOOG 




55 


001010 


OOOOOOG 




56 


001012 


OOOOOOG 




57 




000004 
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another jobs context 

. SBTTL CPYCXD — EMT to get information from another jobs context 

Copy data from the context block of a job into a program buffer area. 

Inputs: 
Rl = Index number of our job 
R2 = Index number of job we are copying from 

EMT argument block: 



BYTE 


3, 160 


WORD 


job_number 


WORD 


item index 


WORD 


buffer address 



CPYCXD: 

Gain exclusive access to context buffer 



CALL 


GETCXT 


BCC 


1* 


CALL 


STOP 



iGain access to context buffer 
i Br if got it 
(Aborted uhile waiting 



Get info about data to be copied 



1$: 



?*: 



MOV 


EMTBLK+4, R4 


ASL 


R4 


CMP 


R4,#MAXCXX 


BLOS 


2* 


MOV 


#2. RO 


JMP 


SETERR 


MOV 


CXXADR<R4),R3 


MOV 


CXXSIZ(R4),R4 


MOV 


R4, RO 


CALL 


REDCXT 



Move data to user's buffer 



3*: 



MOV 


EMTBLK+6, RO 


CALL 


VALADW 


MOV 


CXTBUF, R5 


ASR 


R4 


MOV 


<R5)+,-<SP) 


MTPD 


<R0) + 


SOB 


R4, 3* 


Finished 




CALL 


FRECXT 


JMP 


EMTXIT 



; Get index # of item of interest 

; Convert to word table index 

; Is it too big? 

i Br if ok 

i Return error 2 if too big 

i Get address of start of data 
; Get # bytes wanted 

; Read data into context buffer 



J Get address of user's buffer 

jMake sure buffer is ok 

; Get address of buffer 

J Get # words to move 

; Get next word 

i Move to user's buffer 

; Loop if more to move 



j Free context buffer 



Table of addresses of items in context block 



CXXADR: 


. WORD 


JPWDEV 


; 




. WORD 


JPWTYP 


i 1 




. WORD 


JPWFLG 


i 2 


MAXCXX 


s: 


. -CXXADR-2 





Name of print-window device 
Print-window device type 
Print-window flag word 



TSEM3 
CPYCXD 
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58 
59 
60 
61 
62 
63 
64 



001014 000002 
001016 000002 
001020 000002 



Number of bytes to move for each item 
CXXSIZ: 



. WORD 
. WORD 
. WORD 



2 





1 



Name of print-uiindouj device 
Pr int-windou) device type 
Print-window flag word 
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from another job 



1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


001022 


010346 




14 


001024 


010546 




15 








16 








17 








IB 


001026 


004737 


001372' 


19 








20 








21 








22 


001032 


012700 


0000000 


23 


001036 


012710 


056402 


24 


001042 


104375 




25 








26 








27 








28 


001044 


004737 


002324 ' 


29 


001050 


103002 




30 


001052 


004737 


OOOOOOG 


31 








32 








33 








34 


001056 


012703 


0000000 


35 


001062 


012705 


OOOOOOC 


36 


001066 


004737 


001342' 


37 








38 








39 








40 


001072 


012703 


OOOOOOG 


41 


001076 


012705 


000006 


42 


001102 


004737 


001342' 


43 


001106 


012703 


OOOOOOG 


44 


001112 


012705 


OOOOOOC 


45 


001116 


004737 


001342' 


46 








47 








48 








49 


001122 


012703 


OOOOOOG 


50 


001126 


012705 


OOOOOOC 


51 


001132 


004737 


001342' 


52 


001136 


012703 


OOOOOOG 


53 


001142 


012705 


OOOOOOC 


54 


001146 


004737 


001342' 


55 


001152 


012703 


OOOOOOG 


56 


001156 


004737 


001342' 


57 


001162 


012703 


OOOOOOG 



SBTTL CPYFIL 



Copy file access info from another job 



CPYFIL is called to copy all of the file access information from 
another job to our job. The information copied is as follows: 

1. ASSIGN commands. 

2. Logical disk information. 

3. Mounted devices information. 

4. ACCESS control information. 

Inputs: 
R2 == Job index number of job whose file info is to be copied. 



CPYFIL: MOV 
MOV 



R3, -(SP) 
R5, -(SP) 



Purge all channels that are open to logical disks 

CALL PRGLDC ; Purge all LD channels 

Dismount all mounted devices for this job 

MOV #CSIARE, RO i Point to internal EMT arg block area 

MOV #2+<135#400>, <RO);Set EMT function code 

EMT 375 /Dismount all devices for job 

Gain exclusive access to job context buffer 

; Get access to context buffer 

i Br if got it 

j Job was aborted while waiting 



CALL 


OETCXT 


BCC 


3* 


CALL 


STOP 



Set up ASSIGN information 



3*: 



MOV 
MOV 
CALL 



#ASNTBL, R3 

#MAXASN*AT**SZ, R5i# bytes to get 



iPoint to assign table 



CPYCXT 
Set up ACCESS information 



Copy data into our context block 



MOV 

MOV 

CALL 

MOV 

MOV 

CALL 



#RESDEV, R3 
#6, R5 
CPYCXT 
#OKFILE, R3 



;Get ptr to CNOJACCESS control words 
;Copy RESDEV, OKFAND&OKFNND together 
; Copy data into our context block 
; Now get actual access table 

#MAXACC*OF**SZ, R5 i# bytes in table 

CPYCXT ;Copy data into our context block 



Set up logical disk information 

iCopy each LD control table 



MOV 


#LDNAME* R3 


MOV 


#8. »MAXLD, R5 


CALL 


CPYCXT 


MOV 


#LDPDEV, R3 


MOV 


#2*MAXLD, R5 


CALL 


CPYCXT 


MOV 


#LDSIZE, R3 


CALL 


CPYCXT 


MOV 


#LDBASE> R3 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 



001166 004737 001342' 
001172 012703 OOOOOOG 
001176 004737 001342' 



001202 004737 002410' 



001206 



001214 012605 
001216 012603 
001220 000207 



CALL 


CPYCXT 


MOV 


#LDFLAG, R3 


CALL 


CPYCXT 


; Release the 


context bio 


CALL 


FRECXT 


i Copy mounts 




OCALL 


CPYMNT 


i Finished 




MOV 


<SP>+, R5 


MOV 


<SP)+, R3 


RETURN 





Free job context buffer 



i Copy mounts 



€ 

€ 
i 



TSEM3 
CPYPRV 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



. SBTTL CPYPRV — Copy privilege flags from another job's context 

Copy the authorized and set privilege flags from another job's context 
block to our context block. 

Inputs: 
R2 = Index number of job we are copying from. 



3*: 



001222 010346 
001224 010546 



001226 004737 002324' 

001232 103002 

001234 004737 0000000 



001240 012703 0000000 
001244 012705 OOOOOOC 
001250 004737 001342' 



001254 012703 OOOOOOG 
001260 004737 001342' 



001264 012700 OOOOOOG 

001270 005005 

001272 016565 OOOOOOG OOOOOOG 1*: 

001300 016565 OOOOOOG OOOOOOG 

001306 062705 000002 

001312 077011 



001314 012703 OOOOOOG 
001320 012705 000001 
001324 004737 001342' 



001330 004737 002410' 

001334 012605 

001336 012603 

001340 000207 



CPYPRV: MOV 
MOV 



R3, -<SP) 
R5, -(SP) 



Gain exclusive access to context buffer 



CALL 


GETCXT 


BCC 


3* 


CALL 


STOP 



Copy authorized privileges 

MOV #PRIVAO, R3 
MOV #PVNPW*2, R5 
CALL CPYCXT 

Copy set privileges 

MOV #PRIVSO, R3 
CALL CPYCXT 



jGain access to context buffer 
j Br if got it 
; Job ujas aborted 



; Point to authorized privilege vector 
; Get # bytes to copy 
i Copy context info 



i Point to set privilege vector 
; Copy context into 



Set current privileges to set privileges 

MOV #PVNPW, RO iGet # privilege words 

CLR R5 J Init index 

MOV PRIVS0<R5)>PRIVC0<R5)i Current privileges 

MOV PRIVS0(R5),PRIVF0(R5) J Command file privileges 

ADD #2. R5 i Increment uiord index 

SOB RO, 1* ; Loop if more to copy 

Copy maximum authorized priority 



MOV 


#MXJPRI,R3 


MOV 


#1, R5 


CALL 


CPYCXT 


Finished 




CALL 


FRECXT 


MOV 


<SP)+,R5 


MOV 


<SP)+, R3 


RETURN 





; Get maximum authorized priority 
i 1 byte 



i Free context buffer 



TSEM3 
CPYCXT 
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1 

S 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



001342 010346 
001344 010546 



001346 010500 

001350 004737 002726' 



001354 013700 0000000 
001360 112023 
001362 077502 



001364 012605 
001366 012603 
001370 000207 



. SBTTL CPYCXT 



Copy info from another job's context block 



CPYCXT is called to copy information from another job's context block 
into our context block. 

Inputs: 
R2 = Index number of job that me are copying from. 
R3 = Address within context block of info to be copied. 
R5 = Number of bytes to copy. 



CPYCXT: MOV 
MOV 



R3, -<SP) 
R5, -(SP) 



Read the info into the context block buffer 



MOV 
CALL 



R5, RO 
REDCXT 



i Oet # bytes to be read 

; Move info into context buffer 



Now move info from buffer to our context block 



1*: 



MOV 


CXTBUF, RO 


MOVE 


(R0)+, (R3> + 


SOD 


R5, 1* 


"inished 




MOV 


<SP)+, R5 


MOV 


(SP)+, R3 


RETURN 





;Point to buffer 

jCopy data into our context area 



TSEM3 TSX-Plus EMT Overlay 
PRGLDC — Purge channels opened 



1 

2 








3 








4 








5 


001372 


010346 




6 


001374 


010546 




7 








8 








9 








10 


001376 


012703 


177777G 


11 








12 








13 








14 


001402 


010305 




15 


001404 


013700 


OOOOOOG 


16 


001410 


062700 


OOOOOOG 


17 


001414 


020527 


000021 


IS 


001420 


103404 




19 


001422 


162705 


000021 


20 


001426 


062700 


OOOOOOC 


21 


001432 


070527 


OOOOOOG 


22 


001436 


060005 




23 








24 








25 








26 


001440 


016500 


OOOOOOG 


27 


001444 


032700 


OOOOOOG 


28 


001450 


001411 




29 


001452 


042700 


OOOOOOC 


30 


001456 


120037 


OOOOOOG 


31 


001462 


001004 




32 








33 








34 








35 


001464 






36 








37 








38 








39 


001474 


005303 




40 


001476 


002341 




41 








42 








43 








44 


001500 


012605 




45 


001502 


012603 




46 


001504 


000207 
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. SBTTL PRGLDC — Purge channels opened to logical disks 

PRGLDC is called to purge all channels that are opened to logical disks. 



PRGLDC: MOV 
MOV 



R3; -(SP) 
R5, -(SP) 



Begin loop through all channels 

MOV #NLCHN-1,R3 ; Get # of last channel 
Compute address of channel block for this channel 



1«: MOV R3, R5 

MOV CXTRMN, RO 

ADD #R*CHN, RO 

CMP R5, #21 

BLO 2* 

SUB #21, R5 

ADD #R*XCHN-R*CHN> RO 

2*: MUL #CHNSIZ,R5 

ADD RO, R5 



Get channel number 

Get address of base of simulated RMON 

Point to block for channel 

Is this channel in extended channel area? 

Br if not 

Get channel # relative to extended channels 

Point to extended channel area 

Multiply by # bytes per channel 

Get address of channel block 



See if this channel is opened to a logical disk 



MOV 


C. CSW<R5), RO 


BIT 


#CS*DPN, RO 


BEQ 


3* 


BIC 


#-^C<CS*NMX>, RO 


CMPB 


RO, LDDEVX 


BNE 


3* 



Purge this channel 

. PURGE R3 
Check the next channel 



3*: 



DEC 


R3 


BGE 


1* 


Finished 




MOV 


(SP)+, R5 


MOV 


<SP>+, R3 


RETURN 





Get status word for channel 

Is this channel open? 

Br if not 

Extract device index number 

Is Chan opened to a logical disk? 

Br if not 



i Purge the channel 



j Get next channel number 
/Loop if more to check 



TSEM3 TSX-Plus EMT Overlay 
Job monitoring EMT's 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



MACRO V05. 05 Wednesday 18~Jan-89 10:38 Page 11 



. SBTTL Job monitoring EMT's 



001506 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



001 
001 
001 
001 
001 
001 



001 
001 
001 
001 



506 
512 
514 
520 

522 
526 



532 
534 
536 
540 



1 1 3702 
006302 
020227 
101402 
000137 
000172 



001542' 
001666' 
001750' 
001732' 
000010 



OOOOOOG 

000010 

OOOOOOG 
001532' 



The following EMT's are part of the TSX-Plus facility that allows one 
job to monitor the state of another job. 



The form of the EMT is: 



. BYTE 
. WORD 
. WORD 



code^ 157 
arg 1 
arg2 



Where "code" is the sub-function code indicating uihich job-monitoring 
function is wanted. 

MONEMT: 

Get sub-function code and see if it is legal. 

Get sub-function code 

Convert to uiord table index 

Is it legal? 

Br if ok 

Invalid sub-function code 

Enter processing routine based on sub-functn 



1*: 



MOVB 


EMTBLK, R2 


ASL 


R2 


CMP 


R2, #MXMONF 


BLOS 


1* 


JMP 


BADEMT 


JMP 


eM0NFUN(R2) 



Jump vector for sub-function codes 



MONFUN: . WORD 
. WORD 
. WORD 
. WORD 

MXMONF = 



MONO 
MONl 
M0N2 
M0N3 
. -MONFUN 



— Begin monitoring a job 

1 — Stop monitoring a job 

2 — Send status to monitoring jobs 

3 — Send status from system program 
;Max sub-function index 



t 

4 

I 



TSEM3 TSX-Plus EMT Overlay 
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1 

2 

3 

4 

5 001542 

6 

7 

8 

9 
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Sub-function # 

Begin monitoring a specified job. 

MONO: 

Get the number of the job to monitor and see if it is valid 



001542 

10 001546 

11 001550 

12 001554 
13 

14 

15 

16 

17 

18 001556 

19 

20 

21 

22 001562 

23 001566 

24 001570 

25 001574 

26 001600 
27 

28 
29 

30 001606 

31 001612 
32 

33 
34 

35 001620 

36 001622 

37 001624 

38 001632 

39 001636 

40 001640 

41 001646 
42 

43 

44 

45 001652 

46 

47 

48 

49 001656 

50 001662 



013702 0000020 

006302 

020227 OOOOOOG 

101040 



MOV 
ASL 
CMP 
BHI 



R2 

R2, #LSTSL 

8* 



/Get # of job to be monitored 
; Convert to job index number 
; Is the job number too large? 
; Br if yes 



004737 002234 ' 



The job number is valid. 

If our job has previously set up monitoring on the same job we are 

about to monitor* release the previous monitoring. 

CALL MONREL /Release any previous monitoring 

Get a free monitoring control block 



013703 
001004 
012700 
000137 
016337 



110163 
013763 



005702 
001006 
013763 
010337 
000405 
016263 
010362 



OOOOOOG 

000002 

OOOOOOG 

OOOOOOG 



OOOOOOG 
000004G 



i Get a free monitor control block 

i Br if got one 

/Return error 2 if no free control blocks 



OOOOOOG 2*: 



MOV MONFQH, R3 

BNE 2* 

MOV #2/ RO 

JMP SETERR 

MOV JM*LNK<R3)/ MONFQH /Remove block from free list 



OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 3*: 



Initialize the monitoring control block 

MOVE Rl, JM*J0B<R3) ) Set # of job that is monitoring 

MOV EMTBLK+4/ JM*RTN<R3) /Set address of completion routine 

Add monitoring control block to list for job being monitored 

TST R2 /Request to monitor all jobsT' 

BNE 3* / Br if not 

MOV SMONHD/ JM*LNK<R3)/ Add to list of requests for all jobs 

MOV R3/ SMONHD 

BR 9* 

MOV LM0NHD(R2)/ JM«LNK<R3) /Add to list for job being monitored 

MOV R3/LM0NHD(R2) 



000137 OOOOOOG 



Fini shed 
9*: JMP EMTXIT 

Error/ invalid job number 



012700 
000137 



000001 
OOOOOOG 



S«: 



MOV 
JMP 



#1/ RO 
SETERR 



/Return error code 1 



TSEM3 TSX-Plus EMT Overlay 
Job monitoring EMT's 

1 

2 

3 

4 

5 001666 

6 

7 

S 

9 001666 013702 000002G 

10 001672 001407 

11 001674 006302 

12 001676 020227 OOOOOOG 

13 001702 101007 
14 

15 
16 

17 001704 004737 002234' 

18 001710 000402 
19 

20 

21 

22 001712 004737 002210' 

23 

24 

25 

26 001716 000137 OOOOOOG 

27 

28 

29 

30 001722 012700 000001 

31 001726 000137 OOOOOOG 
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Subfunction 1. 

Stop monitoring a job. 

MONl: 

Get the number of the job to monitor and see if it is valid 

; Get # of job to be monitored 
; Zero ==> Release all monitors 
i Convert to job index number 
; Is the job number too large? 

i Br if yes 

Release monitoring a specific job 

; Release monitoring the specified job 



MOV 


EMTBLK+2, R2 


BEQ 


1* 


ASL 


R2 


CMP 


R2, #LSTSL 


BHI 


8$ 



CALL 
BR 



MONREL 
9* 



Release monitoring all jobs 
1*: CALL MONABT i Release all job monitoring 

Finished 
9*: JMP EMTXIT 

Error — Invalid job number specified 



8*: 



MOV 
JMP 



#1, RO 
SETERR 



; Return error code 1 
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Job monitoring EMT's 



MACRO V05. 05 Wednesday lS-Jan-89 10:38 Page 14 



1 

2 








3 








4 








5 


001732 


032737 


OOOOOOG OOOOOOG 


6 


001740 


001003 




7 


001742 


112737 


000002 OOOOOOG 


8 


001750 






9 








10 








11 








12 


001750 


016103 


OOOOOOG 


13 


001754 


001006 




14 


001756 


005737 


OOOOOOG 


15 


001762 


001003 




16 


001764 


005000 




17 


001766 


000137 


OOOOOOG 


18 








19 








20 








21 








nn 








e,c 








23 


001772 


010105 




24 


001774 


072527 


177777 


25 


002000 


032737 


OOOOOOG OOOOOOG 


26 


002006 


001412 




27 


002010 


032761 


OOOOOOG OOOOOOG 


28 


002016 


001006 




29 


002020 


123727 


OOOOOOG 000003 


30 


002026 


001402 




31 


002030 


052705 


100000 


32 








33 








34 








35 








36 


002034 


005703 




37 


002036 


001405 




38 


002040 


004737 


002076 ' 


39 


002044 


016303 


OOOOOOG 


40 


002050 


001373 




41 








42 








43 








44 


002052 


013703 


OOOOOOG 


45 


002056 


001405 




46 


002060 


004737 


002076 ' 


47 


002064 


016303 


OOOOOOG 


48 


002070 


001373 




49 








50 








51 








52 


002072 


000137 


OOOOOOG 



MOV 


LM0NHD<R1),R3 


BNE 


1* 


TST 


SMONHD 


BNE 


1* 


CLR 


RO 


JMP 


SETERR 



1*: 



i Subfunctions 2 and 3. 

; Send a signal to monitoring jobs. 

M0N3: BIT #PO*SYS, PRIVCO J Do we have SYSPRV privilege? 

BNE M0N2 ;Br if yes 

MOVE #2, EMTBLK ; Change to user send if not 

M0N2: 

; If there are no monitoring jobs* return error code 0. 

i 

; Are there any monitoring jobs? 

; Br if yes 

; Any monitoring of all jobs 

; Br if yes 

; Return error — Noone monitoring us 



There are some monitoring jobs. 

Determine if this status is being generated by the system or by 

a program being run from the monitored line. 

Get our job index number 

Convert to job number 

Was EMT done in user or kernel mode? 

Br if in kernel mode 

Is TSKMON sending status? 

Br if yes 

Send status from system program (like LOGON) 

Br if yes 

Set user-generated-status flag 

Begin loop to generate a completion routine for each job that is 
monitoring us. 

i Any requests to monitor this specific job? 

i Br if not 

{Queue a completion routine for monitoring job 

;Are there more monitoring jobs? 

;Loop if yes 

See if there are some pending monitoring requests for all jobs 

»Any requests to monitor all jobs? 

; Br if not 

; Queue the completion routine 

i More requests? 

i Loop if yes 



MOV 


R1,R5 


ASH 


#-1, R5 


BIT 


#UMODE, EMTPS 


BEQ 


3* 


BIT 


#*INKMN, LSW4<R1) 


BNE 


3* 


CMPB 


EMTBLK, #3 


BEQ 


3* 


BIS 


#100000, R 5 



3*: 
6*: 



TST 


R3 


BEQ 


5* 


CALL 


MONQUE 


MOV 


JM*LNK<R3),R3 


BNE 


6S 



5*: MOV 


SMONHD, R3 


BEQ 


9* 


4*: CALL 


MONQUE 


MOV 


JM*LNK(R3>,R3 


BNE 


4* 


i Finished 




9* : JMP 


EMTXIT 



002102 004737 OOOOOOG 



TSEM3 TSX-Plus EMT Overlay 
Job monitoring EliT's 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 002076 010146 

11 002100 010446 
12 

13 
14 
15 
16 
17 

le 

19 002106 010561 

20 002112 013761 

21 002120 116300 

22 002124 110061 

23 002130 016361 

24 002136 116061 

25 002144 112761 

26 002152 112761 

27 002160 005760 

28 002164 001403 

29 002166 112761 

30 002174 010104 
31 

32 
33 
34 
35 
36 
37 

38 002202 012604 

39 002204 012601 

40 002206 000207 
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MONQUE is called to queue a completion routine to pass a monitoring 
status message to a monitoring job. 

Inputs: 
R3 = Pointer to monitor control block <JM*xxx) 
R5 = Job number and system status flag to be passed in RO 
EMTBLK+2 = Status code to be passed to completion routine in Rl 



MONQUE: MOV 
MOV 



R 1 , - < SP ) 
R4, -(SP) 



OOOOOOG 
0000020 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



002176 004737 OOOOOOG 



Get a free completion queue element. 

CALL GETQ i Get free queue element <addr in Rl) 

Set up information in the completion queue element 

MOV R5iCQ*R0<Rl) ; Pass job number in RO 

MOV EMTBLK+2, CQ*R1 (Rl ) ; Pass status code in Rl 

MOVE JM*J0B(R3), RO i Get # of job who is monitoring us 

MOVB RO, CQ*J0B<R1) ; Completion routine is for that job 

MOV JM*RTN(R3),CQ*RTN(R1); Set address of completion routine 

MOVB LPRKRO), CQ*PRI<Rl)i Set execution priority 

MOVB #S*IOFN, CQ*RNS<R1); Set job execution state 

MOVB #CP*STD, CQ*CP(R1)J Set compl routine class priority 

TST LITIME<RO) J Is this an interactive job? 

BEQ 2* i Br if not 

MOVB #S*HICP, CQ*RNS(Rl>i Set interactive state 

2*: MOV R1,R4 ; Get address of Q element to R4 for QCOMPL 

Queue a completion routine for the monitoring job 

CALL QCOMPL i Queue a completion routine 

Finished 



MOV 


(SP>+, R4 


MOV 


(SP)+,R1 


RETURN 





TSEM3 TSX-Plus EMT Overlay MACRO V05. 05 Wednesday lS-Jan-S9 10:38 Page 16 
Job monitoring EMT's 



1 

2 

3 

4 

i5 

6 

7 

8 002210 010246 

9 
10 
11 

12 002212 012702 OOOOOOG 
13 
14 
15 

16 002216 004737 002234' 
17 
18 
19 

20 002222 162702 000002 

21 002226 002373 
22 

23 
24 

25 002230 012602 

26 002232 000207 



i MONABT is called to release all job monitoring requests issued by a 
i job. 

i 

; Inputs: 

i Rl - Job index number of job whose monitoring requests are to be released. 

> 

MONABT: MOV R2, -<SP) 

i 

; Begin loop to release requests for all jobs on the system. 

MOV #LSTSL, R2 i Get # of last line 

i 

i Release all monitoring being done on that job by our job 
1*: CALL MONREL ; Release monitoring 

i Loop if more jobs to check 



SUB #2, R2 
BGE 1* 



; Are there more jobs to check? 
J Loop if yes <0=monitor all jobs) 



Finished 



MOV (SP)+, R2 
RETURN 



TSEM3 TSX-Plus EMT Overlay 
Job monitoring EMT's 
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002234 010346 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 002236 

15 002240 

16 002242 

17 002246 
18 

19 
20 

21 002250 

22 002254 

23 002256 

24 002260 

25 002262 

26 002266 

27 002270 

28 002274 

29 002302 

30 002306 

31 002310 

32 002312 

33 002316 
34 

35 
36 

37 002320 

38 002322 



005702 
001003 
012703 
000403 



012703 
060203 
011300 
001417 
120160 
001010 
016013 
013760 
010037 
000763 
010003 
062703 
000757 



012603 
000207 



OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



MONREL is called to release a monitoring request that has been 
made by one job on another job. 

Inputs: 
Rl = Job index of job that issued the monitor request. 
R2 == Job index of the job that is being monitored <0=all jobs). 



MONREL: MOV 



R3, -<SP) 



If monitored job # = then check system monitor chains 
otherwise check chain for monitored job. 



TST R2 

BNE 3* 

MOV #SMONHD, R3 

BR 1* 



/Monitoring 1 job or all jobs? 

; Br if monitoring 1 job 

i Point to list head for sys monitor list 



3*: 
1*: 



Begin to follow chain of monitoring blocks for job being monitored 

jPoint to list head for monitor blocks 
> Point to list head for job of interest 
;Get address of next monitor control block 
i Br if no more 

J Was this block issued by job of interest? 
; Br if not 



OOOOOOG 



2*: 



9*: 



MOV 


#LMONHD. R3 


ADD 


R2, R3 


MOV 


(R3),R0 


BEQ 


9* 


CMPB 


Rl, JM*JDB<R0) 


BNE 


2* 


MOV 


JM*LNK<RO), <R 


MOV 


MONFQH, JM*LNK 


MOV 


RO, MONFQH 


BR 


1* 


MOV 


RO, R3 


ADD 


#JM*LNK, R3 


BR 


1* 


Finished 




MOV 


(SP)+, R3 


RETURN 





i Get address of next block 

i Point to cell with forward link 

; Go continue following list 



4 



i 
f 

< 
I 
i 
i 
I 
« 

€ 

I 

I 
i 
i 
i 
i 
I 
i 
i 



TSEM3 
GETCXT 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



. SBTTL GETCXT 



Obtain exclusive access to context buffer 



002324 



002324 

002332 1 1 3700 0000000 

002336 001415 

002340 120037 OOOOOOG 

002344 001415 



This routine is called to obtain exclusive access to the buffer 
used to access the context block for another job (CXTBUF). 
On return* exclusive access has been granted to the context 
block buffer unless the job was aborted while waiting for access. 

Outputs; 

C-flag cleared ==> Access granted. 

C~flag set =«> Job aborted while waiting for buffer. 

GETCXT: 

See if the context buffer is currently free 

1*: 



DISABL 

MOVE CXBOWN, RO 

BEQ 3* 

CMPB RO, CORUSR 



BEQ 



2* 



;; Disable interrupts 

; ; Is buffer currently free? 

i ; Br if yes 

; i Do we already own buffer? 

i » Br if yes 



Someone else owns the buffer now. 
Suspend our job until we can get it. 



002346 

002354 012700 OOOOOOG 

002360 004737 OOOOOOG 

002364 004737 OOOOOOG 

002370 000755 



002372 113737 OOOOOOG OOOOOOG 3* 
002400 2* 



ENABL 




MOV 


#S*QCXB> RO 


CALL 


QNSPNX 


CALL 


CHKABT 


BR 


1* 



{Enable interrupts 

; Get waiting-f or-buf f er wait state 

; Suspend job until buffer is available 

i Were we aborted while asleep? 

j Go try to get buffer 



i i i Claim buffer for us 
i Enable interrupts 



002406 000207 



We tan get buffer now 

MOVE C OR USR . C X B OWN 
ENABL 

Finished 



RETURN 

.SBTTL FRECXT — F->ee the context block buffer 

This routine is called to release our ownership of the buffer 
used to access the job context block of another job <CXTBUF). 



002410 123737 OOOOOOG OOOOOOG FRECXT: CMPB 



002416 001010 

002420 105037 OOOOOOG 

002424 105037 OOOOOOG 



002430 012700 OOOOOOG 
002434 004737 OOOOOOG 



002440 000207 



BNE 

CLRB 

CLRB 



CORUSR, CXBOWN 

9* 

CXBOWN 

CXBJOB 



; Do we own the buffer now? 

; Br if not 

f Say the buffer is free 

; Say no job's context data in buffer 



Restart any jobs waiting for the buffer 



MOV 


#S*QCXB, RO 


CALL 


UREGO 


i Finished 




9*: RETURN 





i Get wait state 

; Restart waiting jobs 



TSEM3 


TSX-Plus EMT Ov 


erlay 


GETCHA - 


- Get a 


ddress o 


f user's 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 


002442 


010346 




16 








17 








18 








19 


002444 


004737 


002510' 


20 








21 








22 








23 


002450 


013700 


OOOOOOG 


24 


002454 


062700 


OOOOOOG 


25 


002460 


020327 


000021 


26 


002464 


103404 




27 


002466 


162703 


000021 


28 


002472 


062700 


OOOOOOC 


29 


002476 


070327 


OOOOOOG 


30 


002502 


060300 




31 








32 








33 








34 


002504 


012603 




35 


002506 


000207 
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SBTTL GETCHA 



Get address of user's channel block 



This routine is called to obtain a pointer to a specified I/O channel 
block for a specific job. 

Note: GETCXT must have been called to gain exclusive access to the 
job context buffer before this routine can be used. 

Inputs: 
R2 = Job index number 
R3 = Channel number 

Outputs: 
RO - Address of channel block 

GETCHA: MOV R3, -(SP) 

Get the simulated RMON for the specified job into CXTBUF 

CALL REDRMN ) Get simulated RMON into CXTBUF 

Calculate address of specified channel block 



1*: 



MOV 
ADD 
CMP 

SUB 
ADD 
MUL 
ADD 

Finished 



CXTBUF, RO 

#R*CHN, RO 

R3, #17. 

1* 

#17. , R3 



; Point to RMON data in buffer 

iPoint to 1st channel block 

; Is this channel in extended area7 

i Br if not 

j Get channel # within extended channel area 



MOV 
RETURN 



#R*XCHN-R*CHN^ ROi Point to extended channel arsa 
#CHNSIZ>R3 iMultiply by # bytes per channel block 
R3, RO i Get address of specified channel block 



(SP)+, R3 



TSEM3 
REDRMN 
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3 

4 

5 

6 

7 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 



002510 010346 



002512 013703 OOOOOOG 
002516 012700 OOOOOOG 



002522 004737 002726 ' 



002526 012603 
002530 000207 



. SBTTL REDRMN — Access simulated RMON for a job 

This routine is called to read into the job context block buffer 
the simulated RMON (including I/O channel blocks) for a job. 

Inputs: 
R2 = Index number of job whose RMON is to be read. 

Outputs: 
(CXTBUF) = Rmon data. 

REDRMN: MOV R3, -<SP) 

Set up information about the simulated RMON 



MOV 
MOV 



CXTRMN, R3 
#MVSIZ,RO 



iOet address of base of RMON with cxt blk 
jOet size of simulated RMON 



Get simulated RMON into context block buffer 

CALL REDCXT J Get RMON into buffer 

Finished 

MOV (SP)+, R3 
RETURN 



TSEM3 
GTUKBL - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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00253S 



002532 004737 002324 ' 

002536 103002 

002540 004737 OOOOOOG 



002544 013702 000004G 

002550 012703 OOOOOOG 

002554 012700 000002 

002560 004737 002726 ' 



002564 013705 OOOOOOG 
002570 011503 
002572 001005 



002574 004737 002410' 

002600 005000 

002602 000137 OOOOOOG 



SBTTL GTUKBL 



Access region used for user key definitions 



This routine is used to access a 512-byte page of information in 
the local named region used to store user key definitions. 

The form of the EMT is: 
. BYTE 0, 126 
. WORD 17 
. WORD job_number 
.WORD block„number 
. WORD destination^address 

The following error codes can be returned: 

= Job does not have any user-defined keys. 

1 = Job is swapped out of memory. 

GTUKBL: 

Gain exclusive access to context buffer 

;Gain access to context buffer 

i Br if got it 

; Job was aborted while waiting 



CALL 


GETCXT 


BCC 


1« 


CALL 


STOP 



Read KEYRCB cell into buffer 



1*: 



MOV 


EMTBLK+4, R2 


MOV 


#KEYRCB, R3 


MOV 


#2, RO 


CALL 


REDCXT 



i Get number of job we are accessing 

j Get address of cell we want 

> Get # bytes we need 

iCopy data from jobs KEYRCB cell 



See if job has a region assigned for key definitions 



MOV 

MOV 
BNE 



CXTBUF, R5 

(R5),R3 

2* 



Job has no user-defined keys 



CALL 


FRECXT 


CLR 


RO 


JMP 


SETERR 



j Get pointer to base of context buffer 

iGet value of KEYRCB 

i Br if job has some user-defined keys 



; Free context block buffer 
» Return error code 



Job has some user-defined keys. 

Get the region control block into context buffer. 



002606 012700 OOOOOOG 
002612 004737 002726' 



002616 032762 OOOOOOG OOOOOOG 
002624 00101 1 



002626 016537 OOOOOOG OOOOOOG 



>*: 



MOV #RC**SZ> RO 
CALL REDCXT 



; Get # bytes to access 
iCopy RCB into cxtbuf 



See if job is currently in memory. 

BIT #*INC0R>LSW<R2) ; Is job in memory now? 
BNE 3* ;Br if yes 

Job is currently swapped out of memory 

MOV RC*BLK(R5)>UR0 i Return swap file block # to caller in RO 
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58 002634 

59 002640 

60 002644 
61 

62 
63 
64 

65 002650 

66 002654 

67 002660 

68 002664 

69 002670 
70 

71 
72 

73 002674 

74 002700 

75 002704 

76 002710 

77 002712 

78 002714 
79 

80 
61 

82 002716 

83 002722 



004737 002410' 
012700 000001 
000137 OOOOOOG 



016505 
013703 
072327 
012700 
004737 



013705 
013703 
012700 
012546 
106623 
077003 



004737 
000137 



OOOOOOG 

000006G 

000011 

001000 

OOOOOOG 



OOOOOOG 
0000 lOG 
000400 



CALL 

MOV 

JMP 



FRECXT 

#1>R0 

SETERR 



3*: 



Job is in memory. 

Copy data from region into 

MOV RC*BAS<R5),R5 

MOV EMTBLK+6, R3 

ASH #9. , R3 

MOV #512. ,R0 

CALL CXBMOV 



Page 21-1 



i Free context block buffer 
; Return error code 1 



context buffer. 

i Get 64-byte block # of phys base of region 
iGet desired page of region 
/Convert page # to byte offset 
;Say to move 512 bytes 
;Copy data into CXTBUF 



Now move the data from the context buffer into the result buffer 



4$: 



002410' 
OOOOOOG 



MOV 

MOV 

MOV 

MOV 

MTPD 

SOB 

Finished 

CALL 
JMP 



CXTBUF, R5 
EMTBLK+10, R3 
#256. , RO 
(R5)+, -(SP) 
<R3) + 
RO, 4* 



FRECXT 
EMTXIT 



iGet current location of data 

i Get virtual address of result buffer 

/Get # words to move 

/ Get next uiord 

/Move into result buffer 

/Loop till all moved 



/Free context block buffer 



TSEM3 
REDCXT • 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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002726 010346 
002730 010546 



002732 120237 OOOOOOG 

002736 001006 

002740 020337 OOOOOOG 

002744 001003 

002746 023700 OOOOOOG 

002752 103026 



002754 110237 OOOOOOG 

002760 010337 OOOOOOG 

002764 005200 

002766 042700 000001 

002772 010037 OOOOOOG 



002776 032762 OOOOOOG OOOOOOG 
003004 001407 



003006 016205 OOOOOOG 

003012 162703 OOOOOOG 

003016 004737 OOOOOOG 

003022 000402 



. SBTTL REDCXT — Read a job context block into buffer 

This routine is called to read a portion of a job context blocks 
belonging to some job other than the current job, into the 
CXTBUF buffer. 

GETCXT must have been called prior to calling this routine to 
guarantee exclusive access to the context block buffer. 

Inputs: 
R2 = Job index number of the job whose context block is to be read. 
R3 = Address of item in context block which is to be positioned 

at the base of the buffer. 
RO = Number of bytes to be read (512 maximum). 

Outputs: 
CXTBUF contains specified data. 



REDCXT: MOV 
MOV 



R3, -<SP) 
R5, -(SP) 



CMPB 


R2, CXBJOB 


BNE 


1* 


CMP 


R3, CXBBAS 


BNE 


1* 


CMP 


CXBSIZi RO 


BHIS 


9* 



See if the requested data is already in the buffer. 

i Is data for right job in buffer? 

; Br if not 

i Is base item correct? 

; Br if not 

i Do we have enough data in buffer? 

i Br if yes — We are finished 

We do not have the correct data in the buffer. 

Set up information about what we will be getting into buffer. 

1*: MOVB R2* CXBJOB i Remember which context block we are getting 

i Remember base offset 
i Force size to be word multiple 

/Remember amt of data being gotten 

See if the job whose context data we want is currently in memory. 

BIT #*INCOR> LSW<R2) ;Is job in memory now? 
BEQ 2* iBr if not 

Job is in memory. 

Do a memory-to-memory move to get the data. 



MOVB 


R2, 


CXBJOB 


MOV 


R3, 


CXBBAS 


INC 


RO 




BIC 


#1, 


RO 


MOV 


RO, 


CXBSIZ 



MOV 


LCXPAR<R2),R5 


SUB 


#CXTBAS, R3 


CALL 


CXBMOV 


BR 


9* 



; Get base PAR mapping value 

; Convert address to offset within cxt blk 

i Move data to context block buffer 



Job is not now in memory. 

Read the context block data from the swap file. 



003024 004737 003036 ' 



?*: 



CALL 



CXBSWP 



Read data from swap file 



Finished 



< 
I 
i 
i 
i 
f 
i 
i 

€ 

€ 

I 

i 
4 

i 
i 
i 
i 
I 
i 
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REDCXT — Read a job context block into buffer ' 



58 ; 

59 003030 012605 9$: MOV (SP)+, R5 

60 003032 012603 MOV <SP)+, R3 

61 003034 000207 RETURN 



I 
i 

i 

i 

€ 

C 
C 

t 
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1 

2 








3 








4 








5 








6 








7 








S 








9 








10 








11 


003036 


010146 




12 


003040 


010246 




13 


003042 


010346 




14 


003044 


010446 




15 








16 








17 








18 


003046 


162703 


OOOOOOG 


19 


003052 


010301 




20 


003054 


072127 


177767 


21 


003060 


066201 


OOOOOOG 


22 








23 








24 








25 


003064 


042703 


177000 


26 


003070 


010302 




27 


003072 


060002 




28 


003074 


020227 


001000 


29 


003100 


101402 




30 


003102 


012702 


001000 


31 








32 








33 








34 


003106 


006202 




35 


003110 






36 








37 








38 








39 








40 


003144 


005703 




41 


003146 


001434 




42 


003150 


006302 




43 


003152 


160302 




44 


003154 


010200 




45 


003156 


006200 




46 


003160 


013704 


OOOOOOG 


47 


003164 


060403 




48 


003166 


012324 




49 


003170 


077002 




50 








51 








52 








53 


003172 


013703 


OOOOOOG 


54 


003176 


160203 




55 


003200 


003417 




56 








57 









. SBTTL CXBSWP — Read job context data from swap file 

Read some job context data from the swap file into CXTBUF buffer. 

Inputs: 
R2, CXBJOB = Index number of job whose context data is being read. 
R3, CXBBAS = Address within context block of item to be read into 

the base of the context buffer. 
RO, CXBSI2 = Amt of data to be read (512. maximum) 



CXBSWP: MOV 
MOV 
MOV 
MOV 



Rl, -(SP> 
R2, -(SP) 
R3, -<SP) 
R4, -<SP) 



Determine which block in swap file has start of data being read 



SUB #CXTBAS. R3 

MOV R3, Rl 

ASH #-9. ,R1 

ADD LSWPBK(R2), Rl 



> Convert address to offset within context 
J Get starting offset 

i Determine starting block # within context 
;Add base block # within swap file 



Determine how much data to read this time 

i Get starting offset within 1st block 

i Get offset beyond last byte we need 
i We cannot read more than 512 bytes 
> Br if don't need to truncate 
i Read 512 bytes this time 



BIC 


#--^C<777>, R3 


MOV 


R3, R2 


ADD 


RO, R2 


CMP 


R2, #512. 


BLOS 


1« 


MOV 


#512. ,R2 



Read data from swap file 



1«: 



ASR 



RJ 



Convert # bytes to # words to read 



. READW #USREMT, #USWPCH, CXTBUF, R2> Rl 

If data is not positioned at the start of the block* move it 
down to the base of the buffer. 



>*: 



TST 
BEQ 
ASL 
SUB 
MOV 
ASR 
MOV 
ADD 
MOV 
SOB 



R3 






9* 






R2 






R3, 


R2 




R2, 


RO 




RO 






CXTBUF 


, R4 


R4, 


R3 




(R3)+, 


(R4) + 


RO, 


2* 





Is data at base of buffer now? 

Br if yes — Don't need to move 

Get back # bytes read 

Get # bytes we need to move down 

Get # bytes to move 

Get # words we need to move down 

Point to base of buffer 

Point to start of data we want 

Move the data down 

Loop till all moved 



See if the requested data spans a block boundary. 



MOV 
SUB 
BLE 



CXBSIZ,R3 
R2, R3 
9* 



i Get total amt of data requested 

J Get # left to be read 

i Br if we have gotten all that was requested 



Read in second block to get remainder of data. 
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58 
59 
60 

61 003202 005201 

62 003204 006203 

63 003206 
64 

65 
66 

67 003240 012604 

68 003242 012603 

69 003244 012602 

70 003246 012601 

71 003250 000207 



Data from second block is read on top of data from first block 
so that we don't have to move it. 

INC Rl i Increment block number 

ASR R3 ; Get # words to read 

. READW #USREMT, #USWPCH, R4, R3, Rl 



Finished 



9*: 



MOV 
MOV 
MOV 
MOV 
RETURN 



<SP)+, R4 
(SP)+, R3 
(SP)+, R2 
(SP)+, Rl 



I 
( 

t 
1 
i 



003252 
003260 
003262 



003266 
003272 
003302 
003304 

003306 
003314 



112737 
000420 
105037 



013737 
042737 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



003322 
003324 



106506 
012637 



003330 
003334 

003336 
003340 
003344 
003350 
003354 
003360 
003362 
003364 
003366 
003370 
003372 

003374 



003374 
003400 
003406 
003410 
003412 
003420 
003424 
003430 
003432 
003436 
003442 



013703 
001417 

010300 
004737 
012702 
004737 
020227 
103003 
1 1 0022 
001371 
000441 
105012 
000437 



005037 
023727 
101011 
001005 
013737 
005037 
013702 
000405 
012702 
012746 
106612 



000001 
OOOOOOG 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 
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. SBTTL . CSISPC S< . CSIGEN 
Command string interpreters. 



012705 000010 

005305 
002372 



0000 lOG 
000001 



OOOOOOG 



000004G 



OOOOOOG 
OOOOOOG 
OOOOOOG 
000120G 



OOOOOOG CSISPC: MOVB #1,SPCFLG 

BR CSICOM 
CSIGEN: CLRB SPCFLG 



Close user's channels 0-10 



REMEMBER THIS IS . CSISPC 
REMEMBER THIS IS . CSIGEN 



1*: 



MOV #10, R5 

. CLOSE R5 

DEC R5 

BGE 1* 



i GET LAST CHANNEL # TO CLOSE 

i CLOSE THE CHANNEL 

; MORE TO DO? 

; BR IF YES 

i .CSIGEN returns address above user's handler space in RO. 
OOOOOOG MOV EMTBLK+10, URO ; RETURN HANDLER SPACE ADDRESS IN RO 

OOOOOOG BIC #1,UR0 ; MAKE SURE ADDRESS IS EVEN 

Save the user's stack pointer on entry in case we have to 
restore it because u>e have a command error. 



OOOOOOG 
0000 lOG 



OOOOOOG 
OOOOOOG 
000006G 

OOOOOOG 
100052 



CSICOM: MFPD 
MOV 



SP 

(SP)+, CSIUSP 



;Get user's stack pointer 

J Save in job context block cell 



Print prompt and get command line 

or move command from user's area to our area. 



CSIGCL: MOV EMTBLK+4, R3 

BEQ 2* 
i Move command string from user 



1«: 



9*: 



>«: 



000003 



OOOOOOG 



!1*: 



6*: 



MOV 


R3, RO 


CALL 


VALADB 


MOV 


#CSIBUF, R2 


CALL 


GETUCH 


CMP 


R2, #<CSIBUF+80. > 


BHIS 


9* 


MOVB 


RO, (R2) + 


BNE 


1* 


BR 


3* 


CLRB 


<R2) 


BR 


3* 


t for 


and accept a comma 


tst 


cf psav 


beq. 


21* 


mov 


cf psav, cfpnt 


CLR 


CFPSAV 


CMP 


EMTBLK+10, #3 


BHI 


6* 


BNE 


8$ 


MOV 


CFPNT, CFPSAV 


CLR 


CFPNT 


MOV 


EMTBLK+6, R2 


BR 


7* 


MOV 


#USRUCA, R2 


MOV 


#100052, -<SP) 


MTPD 


<R2) 



ADDRESS OF USER'S COMMAND STRING 
BR IF INPUT IS FROM THE TERMINAL 
s area to our internal buffer. 
CHECK IF ADDRESS IS LEGAL 

PUT COMMAND HERE 

GET CHAR FROM USER'S AREA 

DON'T GO BEYOND END OF BUFFER 

BR IF COMMAND LINE TOO LONG 

MOVE TO OUR BUFFER 

LOOP TILL ASCIZ NULL HIT 

GO PROCESS THE COMMAND 

STORE NULL AT END OF COMMAND 

GO PROCESS THE COMMAND 



did we previously force gtlin from tt? 

br if not 

if so, restore ptr 

ASSUME WE DON'T NEED TO SUSPEND COMMAND FILES 

IS THIS A . GTLIN EMT? 

BR IF NOT 

BR IF NOT FORCING INPUT FROM TERMINAL 

SAVE CURRENT COMMAND FILE BUFFER POINTER 

SUSPEND INPUT FROM COMMAND FILE 

GET ADDRESS OF USER'S PROMPT STRING 

PUT « IN USER'S AREA FOR PROMPT 

MOVE TO USER'S AREA 
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58 003444 

59 003450 

60 003456 

61 003462 

62 003464 
63 

64 
65 
66 

67 003472 

68 003500 
69 

70 003502 

71 003506 

72 003510 

73 003514 

74 003520 

75 003522 

76 003524 

77 003530 

78 003532 
79 

80 

81 

82 003536 

S3 003544 

84 003546 



012703 OOOOOOG 
0000000 
OOOOOOG OOOOOOG 



005737 
001403 
013737 



032737 
001424 

013703 
010300 
004737 
012702 
1 1 2200 
001403 
004737 
000773 
004737 



023727 
101002 
000137 



7*: 



MOV 


#CSIBUF,R3 


OCALL 


ASKLIN 


TST 


CFPSAV 


BEQ 


3* 


MOV 


CFPSAV, CFPNT 



PUT STRING HERE 

PRINT PROMPT & ACCEPT LINE FROM TERMINAL 

DID WE SUSPEND INPUT FROM COMMAND FILES? 

BR IF NOT 

REENABLE INPUT FROM COMMAND FILE 



000001 0000 lOG 3*: 



0000 12G 



The command 
Copy the st 



Move 



line is now stored in CSIBUF in asciz form, 
ring to user's buffer if requested. 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

0000 lOG 000003 
OOOOOOG 



5*: 



BIT 


#1,EMTBLK+10 


BEQ 


CSISCN 


command 


line to user 


MOV 


EMTBLK+12, R3 


MOV 


R3, RO 


CALL 


VALADB 


MOV 


#CSIBUF, R2 


MOVB 


<R2>+, RO 


BEQ 


4* 


CALL 


PUTUCH 


BR 


5* 


CALL 


PUTUCH 



iDOES USER WANT A COPY OF COMMAND LINE? 
;BR IF NOT 
(uffer. 
; GET ADDRESS OF BUFFER WHERE COMMAND GOES 

MAKE SURE ADDRESS IS LEGAL 
POINT TO BUFFER HOLDING COMMAND 
GET CHAR FROM COMMAND LINE 
BR WHEN ASCIZ NULL HIT 
MOVE CHAR TO USER'S BUFFER 



4*: CALL PUTUCH > MOVE TERMINATING NULL 

i 

i If this is . GTLINE EMTi we are finished 



CMP EMTBLK+10, #3 
BHI CSISCN 
JMP EMTXIT 



IS THIS A . GTLIN EMT? 

BR IF NOT 

WE ARE FINISHED WITH . GTLINE 



TSEM3 



TSX-PluB EMT Overlay 



003552 
003556 
003560 
003564 
003570 
003572 
003576 
003602 
003604 
003610 
003612 
003614 



CSISPC & . CSIGEN 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



003616 
003622 
003626 
003634 
003640 
003642 
003644 
003646 
003652 
003654 
003660 

003662 
003664 

003666 
003672 
003676 



105737 
001417 
013705 
042705 
010500 
062700 
004737 
010504 
012703 
005046 
106624 
077303 



105037 
105037 
013737 
012701 
010102 
112200 
001410 
120027 
001403 
120027 
001370 

005004 
000406 

012704 
062705 

105237 



OOOOOOG 

0000 lOG 
000001 

000116 
OOOOOOG 

000047 
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At this point the command string has been accrued and is stored 
in asciz form in CSIBUF. 

If we are doing a .CSISPC, zero user's file spec block. 

DOING . CSISPC? 
BR IF NOT 

GET ADDRESS OF FILE SPEC BUFFER 
MAKE ADDRESS EVEN 
MAKE SURE ADDRESS IS LEGAL 



; FILE SPEC IS 39 WORDS LONG 
; ZERO USER'S AREA 



The following registers are set up for the actual command scan: 
Rl = Pointer into CSIBUF. 
R4 = File number we are working on. 
R5 = Pointer into user's device spec buffer (.CSISPC only). 

If command line contains an equal sign then we have output file specs. 
Otherwise first file is an input file (# 3). 



CSISCN: 


TSTB 


SPCFLG 




BEQ 


4* 




MOV 


EMTBLK+iO, R5 




BIC 


#1,R5 




MOV 


R5, RO 




ADD 


#2*39. , RO 




CALL 


VALADW 




MOV 


R5, R4 




MOV 


#39. , R3 


1*: 


CLR 


-<SP) 




MTPD 


(R4) + 




SOB 


R3, 1* 



( 
( 
I 
c 

4 

{ 
i 

i 



OOOOOOG 
OOOOOOG 

000002' OOOOOOG 
OOOOOOG 



000075 
000074 



000003 
000036 
OOOOOOG 



4*: CLRB CSIEQL ; HAVEN'T SEEN EQUAL SIGN YET 

NO SWITCHES YET 
SET DEFAULT DEVICE NAME 
POINT TO COMMAND STRING 

2«: MOVE <R2)+, RO ; SCAN ACROSS COMMAND LOOKING FOR EQUAL SIGN 

BR IF END OF COMMAND HIT — NO EQUAL SIGN FOUND 

DOES COMMAND CONTAIN AN EQUAL SIGN? 

BR IF YES 

LESS-THAN SIGN IS EQUIVALENT TO EQUAL-SIGN 

; Command line contains an equal sign. Output files come first. 
5*: CLR R4 i FIRST FILE # IS 

BR CSICHR 
i Command line does not contain an equal sign. Output files are omitted. 



CLRB 


CSIEQL 


CLRB 


SWTCNT 


MOV 


R50DK, CSIDEV 


MOV 


#CSIBUF, Rl 


MOV 


R1,R2 


MOVE 


<R2)+, RO 


BEQ 


3* 


CMPB 


RO, #' = 


BEQ 


5* 


CMPB 


R0,#'< 


BNE 


2* 



3*: 



MOV 


#3, R4 


ADD 


#36, R5 


INCB 


CSIEQL 



FIRST FILE IS # 3 

POINT TO 1ST INPUT FILE SPEC AREA 

SAY WE ARE BEYOND EQUAL SIGN 



( 
1 
i 
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€ 
C 



1 

2 
3 
4 


003702 


004737 


004670 ' 


5 


003706 


105700 




6 


003710 


001002 




7 


003712 


000137 


004514' 


a 


003716 


120027 


000075 


9 


003722 


001403 




10 


003724 


120027 


000074 


11 


003730 


001023 




12 








13 


003732 


105737 


0000000 


14 


003736 


001402 




15 


003740 


000137 


004530 ' 


16 


003744 


105237 


0000000 


17 


003750 


012704 


000003 


la 


003754 


013705 


0000 lOG 


19 


003760 


042705 


000001 


20 


003764 


062705 


000036 


21 


003770 


013737 


000002' 0000000 


22 
23 
24 


003776 


000741 




004000 


120027 


000054 


25 


004004 


001002 




26 


004006 


000137 


004470 ' 


27 








28 


004012 


120027 


000057 


29 


004016 


001002 




30 


004020 


000137 


004346 ' 


31 








32 








33 








34 


004024 


005301 




35 


004026 


020427 


000010 


36 


004032 


101006 




37 


004034 


105737 


OOOOOOG 


38 


004040 


001005 




39 


004042 


020427 


000003 


40 


004046 


103402 




41 
42 
43 


004050 


000137 


004530' 


004054 


010400 




44 


004056 


020027 


000002 


45 


004062 


101402 




46 


004064 


005000 




47 


004066 


000402 




48 


004070 


005200 




49 


004072 


006300 




50 


004074 


063700 


0000060 


51 


004100 


004737 


OOOOOOG 


52 


004104 


106510 




53 


004106 


012600 




54 








55 


004110 


004737 


004736 ' 


56 


004114 


103002 




57 


004116 


000137 


004530' 



Begin processing the next file specification. 



CSICHR: 
CSICHl: 



7*: 



17*: 



11*: 



See 



1*: 



See 



14*: 



CALL CSIGET 

TSTB RO 

BNE 7* 

JMP CSIFIN 

CMPB RO, #' = 

BEQ 17* 

CMPB RO, #'< 

BNE 1* 

means start of input fi 

TSTB CSIEQL 

BEQ 11* 

JMP CSIILL 

INCB CSIEQL 

MOV #3, R4 

MOV EMTBLK+10, R5 

BIC #1,R5 

ADD #36, R5 

MOV R50DK, CSIDEV 

BR CSICHR 

if ue have a null file 

CMPB RO, #', 

BNE 14* 

JMP CSINXT 

if u»e have a leading sui 

CMPB RO, #'/ 

BNE 15* 

JMP CSISWT 



GET NEXT CHAR FROM COMMAND LINE 

REACHED END OF COMMAND LINE? 

BR IF NOT 

FINISH OFF COMMAND 

REACHED EQUAL SIGN? 

BR IF YES 

LESS-THAN SIGN IS EQUIVALENT TO EQUAL SIGN 

BR IF NOT 
le specs. 

HAVE WE SEEN AN EQUAL SIGN BEFORE? 

BR IF NOT 

ERROR IF 2 EQUAL SIGNS 

REMEMBER EQUAL SIGN SEEN 

NEXT FILE # IS 3 

GET ADDRESS OF USER'S FILE SPEC AREA 

MAKE EVEN 

POINT TO SPACE FOR 1ST INPUT FILE SPEC 

RESET DEFAULT DEVICE TO "DK: " 

CONTINUE SCAN 
spec. 

iNULL FILE SPEC? 
i BR IF NOT 

; ADVANCE TO NEXT FILE 
itch specification. 

; START OF SWITCH SPECIFICATION? 

;BR IF NOT 

;G0 PROCESS THE SWITCH 



Accrue a file specification. 



13*: 
i Get 
2*: 



15*: DEC 
CMP 
BHI 
TSTB 
BNE 
CMP 
BLO 
JMP 
the de 
MOV 
CMP 
BLOS 
CLR 
BR 

12*: INC 
ASL 

16*: ADD 
CALL 
MFPD 
MOV 

; Parse the 
CALL 
BCC 
JMP 



Rl 

R4, #8. 

13* 

CSIEQL 

2* 

R4, #3 

2* 

CSIILL 
fault extension 

R4, RO 

RO, #2 

12* 

RO 

16* 

RO 

RO 

EMTBLK+6, RO 

VALADW 

(RO) 

<SP)+, RO 
device-file spec 

ACRFIL 

19* 

CSIILL 



POINT TO 1ST CHARACTER OF NAME 
HAVE WE ALREADY GOTTEN MAX # FILES ALLOWED? 
BR IF TOO MANY 

ARE WE GETTING INPUT OR OUTPUT FILES? 
BR IF INPUT FILES 
ONLY ALLOW 3 OUTPUT FILES 
BR IF OK 
ERROR 
for the file name. 
GET FILE NUMBER 
INPUT OR OUTPUT FILE? 
BR IF OUTPUT FILE 
USE EXTENSION FOR ALL INPUT FILES 

CONVERT FILE # TO INDEX INTO EXTENSION TABLE 

2 BYTES PER ENTRY 

ADD BASE OF DEFAULT EXT TABLE 

MAKE SURE ADDRESS IS LEGAL 

GET DEFAULT EXTENSION FROM USER'S TABLE 

GET DEFAULT EXTENSION 
i f ication. 

i ACCRUE THE FILE SPECIFICATION 
iBR IF NO ERROR 
i INVALID SPEC 



TSEM3 


TSX-Plus EMT Ov 


er lay 


. CSISPC 


& . CSIGEN 




58 








59 


004122 


020427 


000003 


60 


004126 


103037 




61 


004130 






62 


004142 


103020 




63 


004144 


105737 


0000000 


64 


004150 


001571 




65 








66 








67 








68 


004152 


012700 


000004 


69 


004156 


020427 


000003 


70 


004162 


103001 




71 


004164 


005200 




72 


004166 


012702 


OOOOOOG 


73 


004172 


010503 




74 


004174 


012246 




75 


004176 


106623 




76 


004200 


077003 




77 


004202 


000457 




78 








79 








SO 








81 


004204 


105737 


0000000 


82 


004210 


001360 




S3 


004212 


005737 


000002G 


84 


004216 


001003 




85 


004220 


005737 


0000000 


86 


004224 


002541 




87 








88 








89 








90 


004226 


105737 


OOOOOOG 


91 


004232 


001347 




92 


004234 


020427 


000003 


93 


004240 


103025 




94 








95 


004242 






96 


004272 


103023 




97 


004274 


123727 


OOOOOOG 


98 


004302 


001002 




99 


004304 


000137 


004542 ' 


100 


004310 


000137 


004550 ' 


101 








102 


004314 






103 


004336 


103001 




104 


004340 


000506 




105 


004342 


000137 


003702 ' 
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; Require a file name with file 
19*: CMP R4, #3 

BHIS 4* 

. DSTATUS #CSIARE> #CSIFIL 

BCC 9* 

TSTB SPCFLG 

BEQ ILLDEV 



structured output devices. 

IS THIS AN OUTPUT FILE SPEC? 

BR IF NOT 

GET INFO ABOUT THE DEVICE 

BR IF VALID DEVICE 

IS THIS . CSISPC OR . CSIGEN? 

BR IF . CSIGEN WITH INVALID DEVICE 



CSISPC: 



Move file spec to user's area. 



21*: 

5*: 
6*: 



MOV 

CMP 

BHIS 

INC 

MOV 

MOV 

MOV 

MTPD 

SOB 

BR 



#4, RO 

R4i #3 

5* 

RO 

#CSIFIL. R2 

R5, R3 

<R2)+, -<SP) 

(R3) + 

RO, 6* 

10* 



ASSUME 4 WORDS TO MOVE 

INPUT OR OUTPUT FILE SPEC? 

BR IF INPUT 

MOVE 5 WORDS FOR OUTPUT FILE SPECS 

POINT TO BUFFER WITH FILE SPEC WE GOT 

GET POINTER TO FILE SPEC AREA 

MOVE A WORD FROM FILE SPEC TO USER'S AREA 

i MOVE ALL OF SPEC 



CSIGEN: See if file specified or device non-file structured. 



9*: 



TSTB 

BNE 

TST 

BNE 

TST 

BLT 



SPCFLG 

21* 

CSIFIL+2 

4* 

CSIARE 

CSIILL 



. CSISPC? 

IF SO, DON'T REQUIRE FILE NAME 

WAS A FILE NAME SPECIFIED? 

BR IF YES 

IS DEVICE FILE STRUCTURED? 

ERROR IF YES 



CSIGEN: Do . lookup or . enter for file. 



4*: 



TSTB 
BNE 
CMP 
BHIS 



SPCFLG 
21* 
R4, #3 
8* 



; Output: Enter the file. 

. ENTER #CSIARE, R4, 

BCC 10* 

CMPB e#ERRLOC, #3 

BNE 18* 

JMP CSIPRO 
18*: JMP CSIFUL 
; Input: Lookup the file. 
8*: .LOOKUP #CSIARE, R4, 

BCC 10* 

BR CSINOF 
10*: JMP CSICHR 



CHECK FOR . CSISPC OR . CSIGEN 

BR IF . CSISPC 

INPUT OR OUTPUT FILE? 

BR IF INPUT 



ttCSIFIL>CSIFIL+10 

;BR IF ENTER WAS SUCCESSFUL 

; PROTECTED FILE CONFLICT? 

; BR IF NOT 

; RETURN ERROR CODE 2 

i RETURN ERROR CODE 3 



#CSIFIL 
BR 



IF OK 
NO FILE FOUND 
CONTINUE SCAN 
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2 








3 








4 


004346 


004737 


004670 ' 


5 


004352 


010003 




6 


004354 


001465 




7 


004356 


042703 


177400 


8 


004362 


010400 




9 


004364 


000300 




10 


004366 


050003 




11 








12 


004370 


004737 


004670 ' 


13 


004374 


120027 


000072 


14 


004400 


001023 




15 








16 








17 








IS 


004402 


052703 


100000 


19 


004406 


004737 


005334 ' 


20 


004412 


103470 




21 








22 


004414 


004737 


005714' 


23 


004420 


105237 


OOOOOOG 


24 








25 


004424 


010300 




26 


004426 


004737 


005714' 


27 








28 


004432 


004737 


004670 ' 


29 


004436 


120027 


000072 


30 


004442 


001761 




31 


004444 


000137 


003706 ' 


32 








33 








34 








35 


004450 


005301 




36 


004452 


010300 




37 


004454 


004737 


005714' 


38 


004460 


105237 


OOOOOOG 


39 


004464 


000137 


003702 ' 


40 








41 








42 








43 


004470 


062705 


000010 


44 


004474 


020427 


000003 


45 


004500 


103002 




46 


004502 


062705 


000002 


47 


004506 


005204 




48 


004510 


000137 


003702 ' 


49 








50 








51 








52 








53 


004514 


1 1 3700 


OOOOOOG 


54 


004520 


004737 


005714' 


55 


004524 


000137 


OOOOOOG 



Process a switch specification. 



CSISWT: CALL 
MOV 
BEQ 

3$: BIC 
MOV 
SWAB 
BIS 



CSIGET 

RO, R3 

CSIILL 

#--C<377>, R3 

R4, RO 

RO 

RO, R3 



GET NEXT CHAR 

GET SWITCH CHARACTER 

BR IF NO CHAR FOLLOWS "/" 

LEAVE ONLY S-BITS 

GET FILE # 

PUT IN LEFT BYTE 

COMBINE FILE # WITH SWITCH CHARACTER 



See if switch has an associated value. 



CALL 
CMPB 
BNE 



CSIGET 
RO, # ' : 



Switch has a value 



GET NEXT CHAR 

IS THERE AN ASSOCIATED VALUE? 

BR IF NOT 



Get it and push onto user's stack. 



1*: 



SET VALUE FLAG 

GET VALUE 

BR IF INVALID 



BIS #100000, R3 
CALL SWVAL 
BCS BADVAL 
Push switch value onto user's stack. 

CALL UPUSH iPUSH ONTO USER'S STACK 

INCB SWTCNT ; COUNT # SWITCHES ACCRUED 

Push switch control word on user's stack. 

MOV R3, RO ; GET CONTROL WORD 

CALL UPUSH ;PUSH ONTO USER'S STACK 

See if there are additional values for this switch. 

GET NEXT CHAR 
IS THERE ANOTHER VALUE 
BR IF YES 
CONTINUE SCAN 



CALL 


CSIGET 


CMPB 


RO, #': 


BEQ 


1* 


JMP 


CSICHl 



No switch value 



>$: 



DEC 


Rl 


MOV 


R3, RO 


CALL 


UPUSH 


INCB 


SWTCNT 


JMP 


CSICHR 



J Finished a 


file spe 


CSINXT: ADD 


#10. R5 


CMP 


R4, #3 


BHIS 


1* 


ADD 


#2, R5 


1*: INC 


R4 


JMP 


CSICHR 



BACK UP CHARACTER POINTER 
GET SWITCH CONTROL WORD 
PUSH ONTO USER'S STACK 
COUNT # OF SWITCHES 
CONTINUE SCAN 



POINT TO NEXT FILE SPEC AREA 
DOING AN INPUT OR OUTPUT FILE? 
BR IF AN INPUT FILE 
SKIP 2 MORE BYTES 
ADVANCE FILE # 
CONTINUE SCAN 



Finished scanning command line. 

Return number of switches on top of user's stack. 



CSIFIN: MOVB 
CALL 
JMP 



SWTCNT, RO 

UPUSH 

EMTXIT 



GET # SWITCHES ACCRUED 
PUSH ONTO USER'S STACK 
FINISHED 
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1 

2 








3 








4 








5 


004530 


005003 




6 
7 
8 


004532 


000424 




004534 


012703 


000001 


9 


004540 


000421 




10 








11 


004542 


012703 


000002 


12 


004546 


000416 




13 








14 


004550 


012703 


000003 


15 


004554 


000413 




16 








17 


004556 


012703 


000004 


IS 


004562 


000410 




19 








20 


004564 


005003 




21 


004566 


012702 


000005 


22 


004572 


000405 




23 








24 


004574 


005003 




25 


004576 


012702 


000006 


26 


004602 


000401 




27 








28 








29 








30 


004604 


010302 




31 








32 


004606 


013746 


OOOOOOG 


33 


004612 


106606 




34 








35 








36 


004614 


005737 


000004G 


37 


004620 


001020 




38 


004622 






39 








40 


004630 


105737 


OOOOOOG 


41 


004634 


001010 




42 


004636 


005704 




43 


004640 


001406 




44 


004642 






45 


004652 


005304 




46 


004654 


002372 




47 


004656 


000137 


003330 ' 


48 








49 


004662 


010300 




50 


004664 


000137 


OOOOOOG 



CSI errors. 

Illegal command 
CSI ILL: CLR R3 

BR CSIERR 
i Illegal device 
ILLDEV: MOV #1,R3 

BR CSIERR 
; Enter failed — Protected file conflict. 
CSIPRO: MOV #2, R3 ; ERROR CODE = 2 

BR CSIERR 
i Enter failed — Insufficient disk space. 



i ERROR CODE = 



} ERROR CODE 



CSIFUL: MOV #3, R3 

BR CSIERR 
i Lookup failed 
CSINOF: MOV #4, R3 

BR CSIERR 
•> Invalid switch 
BADSWT: CLR R3 

MOV #5, R2 
BR CSIERl 
; Invalid switch value 
BADVAL: CLR R3 

MOV #6, R2 
BR CSIERl 



; Common CSI 


error process 


CSIERR 


: MOV 


R3;R2 


i Res 


tore ini 


tial user sta 


CSIERl 


: MOV 


CSIUSP, -<SP 




MTPD 


SP 


i If 


input is 


coming from 


i retry command. 




TST 


EMTBLK+4 




BNE 


3* 




OCALL 


CSIMSG 


; If 


this is 


CSIGEN. purg 




TSTB 


SPCFLG 




BNE 


1* 




TST 


R4 




BEQ 


1* 


2*: 


. PURGE 


R4 




DEC 


R4 




BGE 


2* 


1*: 


JMP 


CSIGCL 


; Inp 


ut is coming from a u 


Zn: 


MOV 


R3, RO 




JMP 


SETERR 



; ERROR CODE = 3 



i ERROR CODE 



i ERROR CODE = O 

i SET ERROR MESSAGE NUMBER 



; ERROR CODE = 

; ERROR MESSAGE NUMBER 



mg. 

; SET ERROR MESSAGE NUMBER 
ck pointer 
) j Get initial stack pointer for user 

; Reset for user 
the terminal, print error message and 

} INPUT FROM THE TERMINAL? 
; BR IF NOT 

i PRINT ERROR MESSAGE 
e channels idb opened. 

CSISPC OR CSIGEN? 

BR IF CSISPC 

DID WE OPEN ANY CHANNELS? 

BR IF NOT 

PURGE A CHANNEL 

MORE TO DO? 

BR IF YES 

GO BACK AND RETRY COMMAND 
ser supplied string. Return an error code, 
i GET ERROR CODE 
i ABORT EMT 
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1 

2 








3 








4 








5 








& 








7 








8 








9 








10 








11 








12 








13 








14 








15 


004670 


112100 




16 


004672 


001420 




17 


004674 


120027 


000040 


18 


004700 


001773 




19 


004702 


120027 


OOOOOOG 


20 


004706 


001770 




21 


004710 


120027 


000141 


22 


004714 


103405 




23 


004716 


120027 


000172 


24 


004722 


101002 




25 


004724 


162700 


000040 


26 


004730 


042700 


177600 


27 


004734 


000207 





. SBTTL •»■■«•■«• Subroutines •«•*» 

. SBTTL CSIGET — Oet next character from CSl command line 

CSIGET is called to pet the next non-blank character from the CSI 
command line. Lower case letters are converted to upper case. 

Inputs: 
Rl = Pointer to character to be gotten 



Outputs: 
RO = Chara 
Rl -- Point 
z~flag set 



CSIGET: 



1*: 
2*: 



MOVB 

BEQ 

CMPB 

BEQ 

CMPB 

BEQ 

CMPB 

BLO 

CMPB 

BHI 

SUB 

BIC 

RETURN 



cter acquired 
er past charac 
if character 

(Rl)+, RO 

2* 

RO, #' 

CSIGET 

RO, #TAB 

CSIGET 

RO, #141 

1* 

RO, #172 

1* 

#40, RO 

#-^C<177>, RO 



ter gottenn 
= null 



GET NEXT CHARACTER 

BR IF HIT STRING DELIMITER 

IS CHAR A SPACE? 

SKIP OVER SPACES 

IS CHARACTER A TAB? 

SKIP TABS 

LOWER CASE A? 

BR IF NOT LOWER CASE LETTER 

LOWER CASE Z? 

BR IF NOT LOWER CASE LETTER 

CONVERT LOWER CASE TO UPPER CASE 

RETURN ONLY 7-BIT CHAR 
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c 



1 

2 








3 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 








15 








16 








17 


004736 


010446 




18 


004740 


010546 




19 








20 








21 








22 


004742 


012705 


0000000 


23 


004746 


013725 


OOOOOOG 


24 


004752 


005025 




25 


004754 


020527 


0000100 


26 


004760 


101774 




27 


004762 


010037 


000006G 


28 








29 








30 








31 


004766 


004737 


004670 ' 


32 


004772 


005301 




33 


004774 


120027 


000056 


34 


005000 


001403 




35 


005002 


004737 


005232' 


36 


005006 


103453 




37 








38 








39 








40 


005010 


004737 


005146' 


41 


005014 


121127 


000072 


42 


005020 


001012 




43 


005022 


005201 




44 


005024 


010437 


OOOOOOG 


45 


005030 


001442 




46 


005032 


010437 


OOOOOOG 


47 


005036 


005705 




48 


005040 


001036 




49 








50 








51 








52 


005042 


004737 


005146' 


53 


005046 


010437 


000002G 


54 


005052 


010537 


000004G 


55 


005056 


121127 


000056 


56 


005062 


001010 




57 


005064 


005201 
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. SDTTL ACRFIL — Accrue a file specification 



ACRFIL is called to parse a file specification of the form 
devrfile. extCsizeH. 

Inputs: 
RO = Default extension 
Rl = Pointer to start of file spec 
CSIDEV = Default device <Rad50) 

Outputs; 
Rl = Pointer to character past end of file spec 
CSIFIL = 5 word buffer containing RadSO file spec accrued 
CSIDEV is updated if a device is explicitly specified 
C-fiag is set on return if the file spec is invalid 



ACRFIL: MOV 
MOV 



R4, -(SP) 
R5, -<SP) 



Initialize CSIFIL buffer. 



1*: 



MOV 


#CSIFIL,R5 


MOV 


CSIDEV> <R5)+ 


CLR 


<R5) + 


CMP 


R5, #CSIFIL+S 


BLOS 


1* 


MOV 


RO, CSIFIL+6 



POINT TO RESULT BUFFER 
PUT IN DEFAULT DEVICE 
CLEAR REST OF BUFFER 



CALL 


CSIGET 


DEC 


Rl 


CMPB 


RO, #'. 


BEQ 


6« 


CALL 


R50CHR 


BCS 


10* 



i SET DEFAULT EXTENSION 

First character of file spec must be valid RadSO character or period. 

GET 1ST CHAR OF FILE SPEC 

BACKUP CHAR POINTER SO WE WILL GET CHAR AGAIN 

PERIOD? 

BR IF YES 

VALID RAD50 CHARACTER? 

BR IF INVALID 

Get first field which tuill be device or file name. 

6*: CALL GTRD50 ; ACCRUE RADSO VALUE 

IS THIS A DEVICE OR FILE NAME? 

BR IF FILE NAME 

POINT PAST COLON 

SET DEVICE NAME 

BR IF NULL DEVICE NAME 

SET NEW DEFAULT DEVICE NAME 

WAS DEVICE NAME LONGER THAN 3 CHARS? 

ERROR IF YES 



CALL 


GTRD50 


CMPB 


<R1),#': 


BNE 


2* 


INC 


Rl 


MOV 


R4, CSIFIL 


BEQ 


10* 


MOV 


R4, CSIDEV 


TST 


R5 


BNE 


10* 



Accrue the file name. 



2*: 



CALL 


GTRD50 


MOV 


R4, CSIFIL+2 


MOV 


R5, CSIFIL+4 


CMPB 


<R1),#'. 


BNE 


3* 


INC 


Rl 



ACCRUE NEXT RADSO FIELD 
FIRST 3 CHARS OF FILE NAME 
SECOND 3 CHARS OF FILE NAME 
IS AN EXTENSION SPECIFIED? 
BR IF NOT 
POINT PAST PERIOD 



i 
I 
c 

i 

i 

< 
i 

€ 
€ 

i 

i 
< 

€ 

I 

i 
I 

€ 
4 
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58 














59 








fiHCCTUia the extension. 


6U 

61 005066 


004737 


005146' 






CALL 


GTRD50 


62 005072 


010437 


000006G 






MOV 


R4, CSIFIL+6 


63 005076 


121127 


000056 






CMPB 


<R1),#'. 


64 005102 


001415 








BEQ 


10* 


66 








See 


if file 


size uas spe 


67 














68 005104 


121127 


000133 


3*: 




CMPB 


(Rl), #'C 


69 005110 


001010 








BNE 


4* 


70 005112 


005201 








INC 


Rl 


71 






> 


Get 


the file 


size 


72 005114 


004737 


005506" 






CALL 


ACRDEC 


73 005120 


010037 


0000100 






MOV 


RO, CSIFIL+S 


74 005124 


122127 


000135 






CMPB 


(Rl)+, #'3 


75 005130 


001002 








BNE 


10* 


76 














77 








Successful return 


78 














79 005132 


000241 




4*: 




CLC 




80 005134 


000401 








BR 


5* 


81 














82 








Err 


or return 




83 














84 005136 


000261 




10*: 


SEC 




85 005140 


012605 




5*: 




MOV 


(SP)+, R5 


86 005142 


012604 








MOV 


<SP)+, R4 


87 005144 


000207 








RETURN 





; ACCRUE THE EXTENSION FIELD 
; STORE THE EXTENSION 
; Was another period specified? 
> Br if yes — Error 



if ied. 



WAS FILE SIZE SPECIFIED? 

BR IF NOT 

POINT PAST OPEN BRACKET 

ACCRUE A DECIMAL VALUE 
STORE FILE SIZE 
GOT PROPER DELIMITER? 
i ERROR IF NOT 



; SIGNAL GOOD RETURN 



; SIGNAL ERROR RETURN 



i 

c 
i 
i 
I 
( 
I 

{ 
I 
I 

i 
i 
i 
i 
i 
i 
i 
i 
i 



TSEM3 


TSX-PIus EMT Ov 


'erlay 


GTRD50 - 

1 
2 
3 


— Accrue a RAD50 name 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


005146 


012746 


022000 


15 


005152 


005005 




16 








17 


005154 


004737 


004670 ' 


IS 


005160 


004737 


005232 ' 


19 


005164 


103001 




20 


005166 


005301 




21 








22 








23 


005170 


070527 


000050 


24 


005174 


060005 




25 


005176 


006316 




26 


005200 


103365 




27 


005202 


005716 




28 


005204 


001402 




29 


005206 


010504 




30 


005210 


000760 




31 








32 


005212 


004737 


004670 ' 


33 


005216 


004737 


005232 ' 


34 


005222 


103373 




35 


005224 


005301 




36 


005226 


005726 




37 


005230 


000207 
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SBTTL GTRD50 — Accrue a RAD50 name 



GTRD50 is called to accrue a name and return it as a RadSO value. 



Inputs: 
Rl = Pointer to 
SPCFLG: 1==> "»' 



start of 
and "7." 



name 
leaal 



in name* 0-=> not legal. 



Outputs 
Rl = Pointer left pointing to name delimiter 
R4 = First 3 characters of name in RadSO 
R5 = Second 3 characters of name 



GTRD50: MOV 
4*: CLR 
> Get next char 
1$: CALL 

CALL 

BCC 

DEC 

; We got a vali 
} Add to accumu 
2*: MUL 

ADD 

ASL 

BCC 

TST 

BEQ 

MOV 

BR 

i Skip any char 
3$: CALL 

CALL 

BCC 

DEC 

TST 

RETURN 



#22000, -<SP) 

R5 

acter and see if 

CSIGET 

R50CHR 

2* 

Rl 

d Rad50 character. 

lated value. 

#50, R5 

RO, R5 

(SP) 

1* 

<SP) 

3* 

R5, R4 

4* 

s in name after 

CSIGET 

R50CHR 

3* 

Rl 

<SP) + 



# CHARS ACQUIRED 



; COUNTER TO CONTROL 
; ACCRUE VALUE IN R5 

it is valid for RadSO name. 

GET NEXT CHARACTER 

IS THIS A VALID RADSO CHAR? 

BR IF VALID 

BACK UP CHAR POINTER TO DELIMITER 



i 
f 
i 
I 
I 

c 

c 



MULTIPLY BY 50 

ADD IN NEW CHARACTER 

HAVE WE GOTTEN 3 CHARS YET? 

BR IF NOT 

HAVE WE GOTTEN 6 CHARS? 

BR IF YES 

RETURN 1ST 3 CHARS IN R4 

GO GET NEXT 3 CHARS 
sixth. 

; GET NEXT CHAR 
i IS THIS A DELIMITER? 
i SKIP IT IF NOT 
; POINT BACK TO DELIMITER 
; REMOVE COUNT FROM STACK 



i 
1 

4 
4 



€ 



TSEM3 


TSX-Plus EMT Ov 


erlay 


R50CHR ■ 

1 
2 
3 


— Convert ascii 


charact 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


005232 


010146 




15 


005234 


012701 


005312' 


16 








17 


005240 


120011 




18 


005242 


103413 




19 


005244 


120061 


000001 


20 


005250 


101010 




21 


005252 


122121 




22 


005254 


001003 




23 


005256 


105737 


OOOOOOG 


24 


005262 


001407 




25 








26 


005264 


061100 




27 


005266 


000241 




28 


005270 


000406 




29 








30 


005272 


062701 


000004 


31 


005276 


105711 




32 


005300 


001357 




33 








34 


005302 


005000 




35 


005304 


000261 




36 








37 


005306 


012601 




38 


005310 


000207 




39 








40 








41 








42 








43 


005312 


101 


132 


44 


005314 


177700 




45 


005316 


060 


071 


46 


005320 


177756 




47 


005322 


052 


052 


48 


005324 


177763 




49 


005326 


045 


045 


50 


005330 


177767 




51 


005332 


000000 




52 
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. SBTTL R50CHR 



Convert ascii character to RadSO value 



R50CHR is called to convert an ascii character to its equivalent 
Rad50 value. 



Inputs 
RO = Ascii character 
SPCFLG: 1==> allow "#" and 



0==> do not allow * and % 



Outputs 
RO = RadSO value of character 
C-flag set if character is not a valid Rad50 character (value returned 

R50CHR: MOV R1,-(SP) 

MOV #R50RNG>R1 i POINT TO CONVERSION TABLE 
i Search for ascii char in our conversion table 



0) 



1*: 



CMPB 


RO, (Rl) 


BLO 


2* 


CMPB 


RO, KRl) 


BHI 


2* 


CMPB 


<R1)+, (Rl) + 


BNE 


3* 


TSTB 


SPCFLG 


BEQ 


9* 



; COMPARE WITH LOW VALUE IN RANGE 
; BR IF TOO SMALL FOR RANGE 
i COMPARE WITH HIGH VALUE IN RANGE 
i BR IF TOO LARGE FDR RANGE 
i IS THIS A SPECIAL CHAR <* OR 7.)? 
i BR IF NOT 

i SHOULD WE ALLOW SPECIAL CHARS? 
i BR IF NOT 
Convert ascii value to radSO. 
i CONVERT ASCII VALUE TO RADSO VALUE 
i SIGNAL GOOD RETURN 
i GO RETURN 

i POINT TO NEXT ENTRY IN CONVERSION TABLE 
iHAVE WE HIT END OF TABLE? 
i BR IF NOT 

; RETURN AS VALUE 
i SIGNAL ERROR 



j We have a valid character. 
3$: ADD <R1),R0 

CLC 

BR 10* 
i Try next range in table. 
2*: ADD #4, Rl 

TSTB <R1) 

BNE 1* 
; Invalid character 
9*: CLR RO 

SEC 
i Return 
10*: MOV (SP)+, Rl 

RETURN 



RadSO conversion table. 

Values: Louj-value, high-value, RadSO-Asc i i-value 



A-Z 
0-9 



R50RNG: 


. BYTE 


'A, 'Z 




. WORD 


l-'A 




. BYTE 


'0, '9 




. WORD 


36- '0 




. BYTE 


'#, '«• 




. WORD 


-15 




. BYTE 


"/., '7, 




. WORD 


-11 




. WORD 







. EVEN 





END OF TABLE MARKER 
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3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


005334 


010546 




15 


005336 


010105 




16 








17 








18 








19 


005340 


004737 


004670 ' 


20 


005344 


120027 


000101 


21 


005350 


103414 




22 


005352 


120027 


000132 


23 


005356 


101050 




24 








25 








26 








27 


005360 


010501 




28 


005362 


010446 




29 


005364 


004737 


005146' 


30 


005370 


010400 




31 


005372 


012604 




32 


005374 


005705 




33 


005376 


001436 




34 


005400 


000437 




35 








36 








37 








38 








39 


005402 


120027 


000055 


40 


005406 


001406 




41 


005410 


120027 


000060 


42 


005414 


103431 




43 


005416 


120027 


000071 


44 


005422 


101026 




45 








46 








47 








48 








49 


005424 


004737 


004670 ' 


50 


005430 


120027 


000056 


51 


005434 


001413 




52 


005436 


120027 


000060 


53 


005442 


103403 




54 


005444 


120027 


000071 


55 


005450 


101765 




56 








57 









SBTTL SWVAL 



Accrue CSI switch value 



SWVAL is called to accrue a value associated with a CSI switch. 
The value may be specified as RadSO alphanumeric* decimal or octal. 

Inputs: 
Rl = Pointer to start of value. 

Outputs: 
RO = Value accrued. 
Rl = Pointer to value delimiter. 
C-flag set on return if an error detected. 



SWVAL : 



MOV 
MOV 



R5. -(SP) 
Rl. R5 



i SAVE POINTER TO START OF VALUE 
Determine what type of value this is. 

i GET FIRST CHAR OF VALUE 
; ALPHABETIC? 
i BR IF NOT 

; BR IF NOT ALPHABETIC 



CALL 


CSI GET 


CMPB 


RO, #'A 


BLO 


1* 


CMPB 


RO,#'Z 


BHI 


5* 



Rad50 value. 



MOV 


R5,R1 


MOV 


R4, -<SP> 


CALL 


GTRD50 


MOV 


R4, RO 


MOV 


<SP)+>R4 


TST 


R5 


BEQ 


10* 


BR 


5* 



; GET BACK POINTER TO START OF VALUE 

i ACCRUE A RADSO VALUE 
;GET 1ST 3 CHARS OF VALUE 

; 2ND 3 CHARS SHOULD BE NULL 

i BR IF OK 

i VALUE TOO LONG 



Value is not Rad50. 
Make sure it is numeric 



1*: 



CMPB 


RO, #'- 


BEQ 


2* 


CMPB 


RO, #'0 


BLO 


5* 


CMPB 


R0,#'9 


BHI 


5* 



2*: 



; ALLOW LEADING MINUS SIGN 

i IS VALUE NUMERIC? 
i BR IF NOT 

i BR IF NOT NUMERIC 



Value is numeric. 

See if a decimal point was specified with value. 



; GET NEXT CHAR IN VALUE 

; DECIMAL POINT? 

; BR IF YES 

iARE WE STILL PASSING DIGITS? 

i BR IF NOT 

i KEEP LOOKING FOR DEC PT 



CALL 


CSI GET 


CMPB 


R0,#'. 


BEQ 


4* 


CMPB 


RO, #'0 


BLO 


3* 


CMPB 


RO, #'9 


BLOS 


2* 



Octal value. 



TSEM3 


TSX-Plu 


5 EliT 0\ 


'erl 


Lay MACRi 


3 V05. 05 Wednesday 


18-Jan-S 


SWVAL - 


— Accrue CSI sujitc 


:h value 






58 










i 




59 


005452 


010501 






3*: MOV 


R5, Rl 


60 


005454 


004737 


005602 ' 


CALL 


ACROCT 


61 


005460 


103407 






BCS 


5* 


62 


005462 


000404 






BR 


10* 


63 














64 










; Decimal value. 


65 














66 


005464 


010501 






4*: MOV 


R5, Rl 


67 


005466 


004737 


005506' 


CALL 


ACRDEC 


68 


005472 


005201 






INC 


Rl 


69 














70 










i Successful f 


inish 


71 














72 


005474 


000241 






10*: CLC 




73 


005476 


000401 






BR 


11* 


74 














75 










j Error 




76 














77 


005500 


000261 






5*: SEC 




78 














79 










; Return 




80 














81 


005502 


012605 






11*: MOV 


<SP)+, R5 


82 


005504 


000207 






RETURN 





GET POINTER TO START OF VALUE 
ACCRUE AN OCTAL VALUE 
BR IF INVALID 



GET POINTER TO START OF VALUE 
ACCRUE A DECIMAL VALUE 
POINT PAST DECIMAL POINT 



i SIGNAL GOOD RETURN 



; SIGNAL ERROR ON RETURN 
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1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 


005506 


010346 




13 


005510 


010446 




14 


005512 


005003 




15 


005514 


005004 




16 


005516 


004737 


004670 ' 


17 


005522 


120027 


000055 


18 


005526 


001003 




19 


005530 


005204 




20 


005532 


004737 


004670 ' 


21 


005536 


120027 


000071 


22 


005542 


101007 




23 


005544 


162700 


000060 


24 


005550 


002404 




25 


005552 


070327 


000012 


26 


005556 


060003 




27 


005560 


000764 




28 


005562 


005301 




29 


005564 


010300 




30 


005566 


005704 




31 


005570 


001401 




32 


005572 


005400 




33 


005574 


012604 




34 


005576 


012603 




35 


005600 


000207 





SBTTL ACRDEC 



Accrue a decimal value 



ACRDEC is called to accrue a decimal character string. 

Inputs: 
Rl = Pointer to start of string. 

Outputs: 
RO =■ Value accrued. 
Rl = Pointer to delimiter hit. 



FORM VALUE IN R3 

SET NON-IMEGATIVE FLAG 

GET 1ST CHARACTER OF VALUE STRING 

LEADING MINUS SIGN? 

BR IF NOT 

SET NEGATIVE-FLAG 

GET NEXT CHARACTER 

IS THIS A DECIMAL DIGIT? 

BR IF NOT 

BR IF NOT DIGIT 

MUL PREVIOUS VALUE BY 10. 

ADD IN NEW DIGIT 

GO GET NEXT DIGIT 

POINT TO DELIMITER 

RETURN RESULT IN RO 

IS VALUE TO BE NEGATED? 

BR IF NOT 

MAKE IT NEGATIVE 



ACRDEC: 


MOV 


R3, -<SP) 




MOV 


R4, -<SP) 




CLR 


R3 




CLR 


R4 




CALL 


CSIGET 




CMPB 


RO, #'- 




BNE 


3* 




INC 


R4 


1*: 


CALL 


CSIGET 


3*: 


CMPB 


RO, #'9 




BHI 


2* 




SUB 


#'0, RO 




BLT 


2* 




MUL 


#10. , R3 




ADD 


RO, R3 




BR 


1* 


2«: 


DEC 


Rl 




MOV 


R3, RO 




TST 


R4 




BEQ 


4* 




NEG 


RO 


4«: 


MOV 


(SP)+, R4 




MOV 


<SP)+, R3 




RETURN 
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3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



005602 
005604 
005606 
005610 
005612 
005616 
005622 
005624 
005626 
005632 
005636 
005640 
005644 
005646 
005652 
005654 
005656 
005660 
005662 
005664 

005666 
005670 
005672 
005674 
005676 
005700 
005702 

005704 
005706 
005710 
005712 



010346 
010446 
005003 
005004 
004737 
120027 
001003 
005204 
004737 
120027 
101013 
120027 
101017 
162700 
002405 
006303 
006303 
006303 
060003 
000760 

010300 
005704 
001401 
005400 
005301 
000241 
000401 

000261 
012604 
012603 
000207 



. SBTTL ACROCT — Ac: c rue an octal value 
ACROCT i5 called to accrue an octal character string. 



Inputs: 
Rl = Pointer 



to start of string. 



Outputs: 
RO = Value accrued. 
Rl = Pointer to delimiter hit. 
C-fiag set if error detected. 



004670 ' 
000055 



004670 ' 
000071 

000067 

000060 



ACF 


iOCT: MOV 


R3, -<SP) 




MOV 


R4, -<SP) 




CLR 


R3 




CLR 


R4 




CALL 


CSIGET 




CMPB 


RO, #'- 




BNE 


4* 




INC 


R4 


1*: 


CALL 


CSIGET 


4*: 


CMPB 


RO, #'9 




BHI 


2* 




CMPB 


RO, #'7 




BHI 


3* 




SUB 


#'0, RO 




BLT 


2* 




ASL 


R3 




ASL 


R3 




ASL 


R3 




ADD 


RO, R3 




BR 


1« 


J 


Got valid va 


lue. 


2*: 


MOV 


R3, RO 




TST 


R4 




BEQ 


6« 




NEC 


RO 


6$: 


DEC 
CLC 


Rl 




BR 


5* 


} 


Invalid numb 


er 


3$: 


SEC 




5$: 


MOV 


<SP)+, R4 




MOV 


(SP)+, R3 




RETURN 





FORM VALUE IN R3 
SET NON-NEGATIVE FLAG 
GET 1ST CHAR OF VALUE STRING 
LEADING MINUS FLAG? 
BR IF NOT 
SET NEGATIVE FLAG 
GET NEXT CHARACTER 
DIGIT? 
BR IF NOT 
OCTAL DIGIT 

BR IF INVALID OCTAL DIGIT 
DIGIT? 
BR IF NOT 
; MULTIPLY PREVIOUS VALUE BY 8. 



; ADD IN NEW DIGIT 
;G0 GET NEXT DIGIT 

; RETURN VALUE IN RO 

; IS VALUE TO BE NEGATED? 

; BR IF NOT 

;MAKE VALUE NEGATIVE 

; POINT TO DELIMITER 

i SIGNAL NO ERROR 



; SIGNAL ERROR ON RETURN 
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1 






2 






3 






4 






5 






6 






7 






8 






9 






10 






11 






12 


005714 


010146 


13 


005716 


106506 


14 


005720 


012601 


15 


005722 


010046 


16 


005724 


106641 


17 


005726 


010146 


18 


005730 


106606 


19 


005732 


012601 


20 


005734 


000207 


21 






22 




000001 


rors c 


letected 






SBTTL UPUSH — Push value onto user's stack 



UPUSH is called during CSI processing to push a value onto the 
user's stack. 



Inputs: 
RO = Value to be pushed. 

Outputs: 
Value pushed onto user's stack. 



UPUSH: 



MOV 

MFPD 

MOV 

MOV 

MTPD 

MOV 

MTPD 

MOV 

RETURN 

. END 



Rl, -<SP) 
SP 

<SP)+, Rl 
R0> -(SP) 
-(Rl) 
Rl, -(BP) 
SP 
(SP)+, Rl 



i GET USER 'S SP 

; PUSH VALUE ONTO USER'S STACK 

; STORE UPDATED STACK POINTER 



*** Assembler statistics 



Work file reads: 

Work file writes: 

Sire of work file: 9911 Words ( 39 Pages) 

Size of core pool: 18176 Words ( 71 Pages) 

Operating system: RT~11 

Elapsed time: 00:00:37.37 
, LP: TSEM3=DK: TSEM3/C/N: SYM 



* 
t 
I 
I 



CPYCXD 5-43 6-16# 

CPYCXT 4-27 7-36 7-42 7-45 7-51 7-54 7-56 7-58 7-60 8-22 8-27 8-42 

9-n# 

CPYEMT 1-31 5-16# 

CPYFIL 5-47 7-13# 

CPYMNT 1-39 7-68 

CPYPRV 5-55 8-9# 

CQ*CP 1-47 15-26* 

CQ*JOB 1-47 15-22» 

CQ*PRI 1-48 15-24* 

CQ*RO 1-47 15-19* 

CQ*R1 1-47 15-20* 

CQ*RNS 1-48 15-25* 15-29* 

CQ*RTN 1-47 15-23* 

CS*NMX 1-36 10-29 

CS*OPN 1-36 10-27 

CSIARE 1-44 7-22 26-61 26-85 26-95 26-102 

CSIBUF 1-42 24-33 24-35 24-58 24-73 25-30 

CSICHl 26-5# 27-31 

CSICHR 25-40 26-4# 26-22 26-105 27-39 27-48 

CSICOM 24-6 24-22# 

CSIDEV 1-43 25-29* 26-21* 30-23 30-46* 

CSIEQL 1-43 25-27* 25-44* 26-13 26-16* 26-37 

CSIERl 28-22 28-26 28-32# 

CSIERR 28-6 28-9 28-12 28-15 28-18 28-30# 

CSIFIL 1-44 26-61 26-72 26-83 26-95 26-95 26-102 30-22 30-25 30-27* 30-44* 30-53* 

30-54* 30-62* 30-73* 

CSIFIN 26-7 27-53# 

CSIFUL 26-100 28-14# 

CSIGCL 24-2S# 28-47 

CSIGEN 1-30 24-7# 
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fDILUP 1-40 5-25 

*INCOR 1-50 21-52 22-41 

*INKMN 1-46 14-27 

*NOVLN 1-44 3-115 3-116 3-119 3-120 

*VNOTT 1-35 2-18 

... VI 10-35 23-35 23-35 23-63 23-63 24-12 24-12 26-61 26-95 26-95 26-95 26-102 

26-102 26-102 28-44 

. . . V2 10-35 10-35# 23-35 23-35 23-35# 23-35# 23-63 23-63 23-63# 23-63# 24-12 24-12# 

26-95 26-95 26~95# 26-95# 26-102 26-102 26~102# 26-102# 28-44 28-44# 

ACRDEC 30-72 33-67 34-i2# ' 

ACRFIL 26-55 30-17# 

ACROCT 33-60 35-1 3# 

ASKLIN 1-43 24-59 

ASNTBL 1-38 7-34 

AT$*SZ 1-40 7-35 

BADEMT 1-46 11-23 

BADSWT 28-20# 

BADVAL 27-20 28-24# 

C. CSW 1-36 10-26 

CFPNT 1-42 24-51 24-52* 24-62* 

CFPSAV 1-37 24-47* 24-51* 24-60 24-62 

CHKABT 1-50 18-28 

CHNSIZ 1-52 10-21 19-29 

CORUSR 1-50 3-111 18-19 18-33 18-4 4 

CP*STD 1-47 15-26 



i 
I 

€ 

i 

< 

I 

i 
i 
i 
4 
I 
i 
i 
i 
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CSIGET 26-4 27-4 27-12 27-28 29-1 5# 29-18 29-20 30-31 31-17 31-32 33-19 33-49 

34-16 34-20 35-17 35-21 

CSIILL 26-15 26-41 26-57 26-86 27-6 28-5# 

CSIMSG 1-44 28-38 

CSINQF 26-104 2S-17# 

CSINXT 26-26 27-43# 

CSIPRO 26-99 28-1 1# 

CSISCN 24-68 24-83 25~6# 

CSISPC 1-30 24-5# 

CSISWT 26-30 27-4# 

CSIUSP 1-44 24-23iJ 2S~32 

CXBBAS 1-49 22-25 22-34*- 

CXBJOB 1-49 1S~47« 22-23 22-33* 

CXBMOV 1-50 21-69 22-49 

CXBOWN 1-49 18-17 18-33* 18-44 18-46* 

CXBSIZ 1-49 22-27 22-37* 23-53 

CXBSWP 22-55 23-1 1# 

CXTBAS 1-51 22-48 23-18 

CXTBUF 1-49 6-41 9-21 19-23 21-34 21-73 23-35 23-46 

CXTRMN 1-51 10-15 20-16 

CXXADR 6-32 6-54# 6-57 

CXXSIZ 6-33 6-61# 
DIEARG 1-71 
DIEMSG 1-71 

EMTBLK 1-42 2-5 2-10 3-15 3-21 3-25 3-27* 3-31 3-40 3-55 3-86 3-90 

4-24 4-25 4-26 5-20 5-41 5-51 6-26 6-39 11-19 12-9 12-31 13-9 

14-7* 14-29 15-20 21-27 21-66 21-74 24-16 24-28 24-48 24-53 24-67 24-70 

24-82 25-8 26-18 26-50 28-36 

EMTPS 1-46 14-25 

EMTXIT 1-43 2-21 3-104 4-32 5-59 6-50 12-45 13-26 14-52 21-83 24-84 27-55 

ERRLOC 1-44 26-97 

FIXPRV 3-69 3-96 3-1 10# 

FRECXT 1-30 4-31 6-49 7-64 8-46 18-44# 21-40 21-58 21-82 

GETCHA 1-31 19-15# 

GETCXT 1-30 4-18 6-20 7-28 8-14 18-12# 21-21 

GETQ 1-47 15-15 

GETUCH 1-42 24-34 

GTRD50 30-40 30-52 30-61 31-14# 33-29 

GTUKBL 1-30 21-17# 

ILLDEV 26-64 28-S# 

INTPRI 1-51 18-25 18-34 

JM*JOB 1-45 12-30* 15-21 17-25 

JM«LNK 1-45 12-26 12-37* 12-40* 14-39 14-47 17-27 17-28* 17-32 
JM*RTN 1-45 1-47 12-31* 15-23 

JPWDEV 1-37 6-54 

JPWFLG 1-37 6-56 

JPWTYP 1-37 6-55 

KEYRCB 1-36 21-28 

KMCPCX 1-31 4-14# 

LBSPRI 1-41 2-16* 

LCXPAR 1-37 22-47 

LDBASE 1-39 7-57 

LDDEVX 1-36 10-30 

LDFLAO 1-39 7-59 

LDNAME 1-39 7-49 

LDPDEV 1-39 7-52 
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LDSIZE 

LITIME 

LMONHD 

LPARNT 

LPRI 

LSTSL 

LSW 

LSW2 

LSW2S 

LSW4 

LSW9 

LSWPBK 

MAXACC 

MAXASN 

MAXCXX 

MAXLD 

MONO 

MONl 

M0N2 

M0N3 

MONABT 

MONEMT 

MONFQH 

MONFUN 

MONQUE 

MONREL 

MVSIZ 

MXJPRI 

MXMONF 

NLCHN 

NUCHN 

OF**SZ 

OKFILE 

OVRHC 

PO*SPV 

PO*SYS 

P2*CXT 

P2*VIR 

PR7 

PRGLDC 

PRIVAO 

PRIVCO 

PRIVC2 

PRIVFO 

PRIVSO 

PS 

PUTUCH 

PVNPW 

QCOMPL 

QNSPNX 

R*CHN 

R*XCHN 

R50CHR 

R50DK 

R50RNG 

RC**SZ 



1-39 

1-48 

1-45 

1-40 

1-48 

1-46 

1-50 

1-45 

1-45 

1-46 

1-45 

1-51 

1-38 

1-38 

6-28 

1-39 

11-28 

11-29 

11-30 

11-31 

1-30 

1-30 

1-45 

11-24 

14-38 

12-18 

1-52 

1-41 

11-21 

1-36 

1-38 



-39 
-38 
-43 
-41 
-40 
-40 



1-40 

1-51 

7-18 

1-41 

1-41 

1-40 

1-35 

1-41 

l-22# 

1-43 

1-41 

1-48 

1-50 

1-52 

1-52 

30-35 
l-94# 

32-15 
1-36 



7-55 
15-27 
12-40 

5-32 

2-17* 

5-23 

2-18 

3-1 15# 

3-116* 
14-27 

23-21 

7-44 

7-35 

6-57# 

7-50 
12-5# 
13-5# 
14-6 
14-5# 
13-22 
11~15# 
12-22 
ll-28# 
14-46 
13-17 
20-17 

2-13 
ll-32# 
10-10 

7-44 
7-43 
2-20 

14-5 
5-34 
3-117 

10- 5# 
3-45 
3-23 
3-117 
3-62* 
3-42 

18-16* 

24-76 
3-46 

15-34 

18-27 

10-16 

10-20 

31-18 

25-29 

32-43# 

21-47 



12-41* 

5-53 
15-24 
12-11 

5-25 

3-119* 

3-120* 



7-53 

14-8# 

16-S« 

12-26* 
11-32 
15-10# 
16-16 

2-15 



7-68 
3-78 



3-65* 
3-39 
5-34 
3-89* 
3-61* 
18-25* 
24-78 
3-67 



10-20 
19-28 
31-33 
26-21 



14-i; 



13-12 
21-52 



17- 



16-12 
22-41 



17-28 

17-9# 
8-40 



17-29* 



24-59 



28-38 



3-81 
3-58* 

8-34* 

3-88* 

18-34* 

3-94 



19-24 



32-14# 



3-92* 
3-78 



8-26 



8-21 



19-28 



8-20 
3-B5* 



8-33 



8-31 



8-33* 



8-34 



14-5 
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RC*BAS 


1-37 


21-65 












RC*BLK 


1-37 


21-57 












REDCXT 


1-31 


6-35 


9-17 


20- 


"21 


21- 


-30 


REDRMN 


19-19 


20-12# 












RESDEV 


1-38 


7-40 












S*HICP 


1-48 


15-29 












S*IOFN 


1-48 


15-25 












S*QCXB 


1-50 


18-26 


18-51 










SETERR 


1-44 
28-50 


1-46 


3-100 


5- 


-28 


5- 


-37 


SETPRI 


1-31 


2-5# 












SETPRV 


2-6 


3-ll« 












SMONHD 


1-35 


12-37 


12-38* 


14- 


-14 


14- 


-44 


SPCFLG 


1-42 


24-5* 


24-7* 


25- 


"6 


26- 


-63 


SPPRED 


1-35 


2-20 












STOP 


1-38 


4-20 


6-22 


7- 


-30 


8- 


•16 


SWTCNT 


1-43 


25-2S« 


27-23* 


27- 


-38* 


27- 


-53 


SWVAL 


27-19 


33-14# 












SYSHLT 


1-71 














TAB 


1-44 


29-19 












TSEM2 


1-21# 














UMODE 


1-46 


14-25 












UPUSH 


27-22 


27-26 


27-37 


27- 


-54 


36- 


-12 


URO 


1-42 


21-57* 


24-16* 


24- 


-17* 






UREGO 


1-50 


18-52 












USREMT 


1-51 


23-35 


23-63 










USRUCA 


1-42 


24-55 












USWPCH 


1-49 


23-35 


23-35 


23- 


-63 


23- 


-63 


VALADB 


1-43 


24-32 


24-72 










VALADW 


1-42 


3-17 


6-40 


25- 


-12 


26- 


-51 


VPRIDF 


1-41 


2-12 













21-48 22-lS# 



6-31 12-25 12-50 13-31 14-17 21-42 21-60 



17-16 
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